ExcelVBA用ADO连接带有密码的access文件

口袋里的long

Private Sub Workbook_Open()
   Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Set cn = New ADODB.Connection
   Set rs = New ADODB.Recordset
   cn.Open "Provider = microsoft.ace,oledb.12.0;Data Source = C:\Users\Administrator\Desktop\练习\练习.accdb;data password=123456"
   rs.Open "select*form 产品纳税表", cn, adOpenDynamic
   Sheet2.Range("A1").CopyFromRecordset rs
   cn.Close
   rs.Close
   Set cn = Nothing
   Set rs = Nothing
End Sub

运行时，代码中黄色区域老是显示运行错误3706，应用程序定义或对象定义错误。敢问各位大侠如何解决？
还有，我的路径是绝对引用，如果是相对引用的话，代码如何改写？（ps：Excel文件和access文件在同一文件夹下）

Renco

这类只能是自已测试，你可以先这样，先不加密码是否成功，然后再加密码只有1位数的密码，再来测试是什么原因，
Thisworkbook.path 这个指的是当前Book文件的路径，

口袋里的long

Renco 发表于 2013-11-10 17:17
这类只能是自已测试，你可以先这样，先不加密码是否成功，然后再加密码只有1位数的密码，再来测试是什么原因 ...

谢谢，已经解决了，是microsoft.ace,oledb.12.0中ace和oledb中间加了“，”。应该是“.”的。还有谢谢你提供相对路径引用的指点。