VBA如果连接有密码的数据库???要详细,最好带注释....

Dim SQL As String

Dim i As Integer

mydata = ThisWorkbook.Path &"\通讯录.mdb"'指定数据库

mytable = "畅通公司" '指定数据表

Set cnn = New ADODB.Connection '建立与数据库的连接

With cnn

.Provider = "microsoft.jet.oledb.4.0"

.Properties("Data source") = mytable

.Properties("jet oledb:database password") = "mm1314" '密码

.Open mydata

End With

strCn = "Provider=sqloledbServer=服务器名称或IP地址Database=数据库名称Uid=用户登录名Pwd=" &chr(13) &chr(10) &""

如果你确认密码是chr(13)+chr(10)的话，上面的写法就达到不的要求。

不过我纳闷的是你这个文件直接用数据库打开的时候怎么输入密码？因为我们输入任何密码之后都要按回车，如果你打开这个文件的时候输入的密码是回车的话，那么其密码应该是空吧，也就是应该这样写：

strCn = "Provider=sqloledbServer=服务器名称或IP地址Database=数据库名称Uid=用户登录名Pwd="

---