【求助】ExcelVBA ADO连接加密的2010 accdb文件 字符串怎么写？

wang-way

如题 【求助】ExcelVBA  ADO连接加密的2010accdb文件 字符串怎么写？

roych

1. Sub test()
   
2. Dim cnn As New ADODB.Connection
   
3. Dim rst As New ADODB.Recordset
   
4. cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Jet OleDb:DataBase Password=123;Data Source=C:\Users\www.0001.GA\Desktop\新建 Microsoft Access 数据库.accdb;"
   
5. rst.Open "表1", cnn, adOpenKeyset, adLockOptimistic
   
6. Debug.Print rst(1)
   
7. End Sub

复制代码

详细见附件，注意把路径改为正确的路径：

李力军2

感谢！