Question

我有以下代码打开到另一个Access数据库的连接，然后打开一个记录集

Sub OpenTest()
Dim Acon As New ADODB.Connection
Dim rst As ADODB.Recordset

 With Acon
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "C:\MyFolder\MyDb.accdb"
    .Properties("Jet OLEDB:Database Password") = "OpenSesame"
    .Open
 End With

 Set rst = New ADODB.Recordset
 rst.Open "SELECT * FROM tblAdmin", Acon, adOpenDynamic, adLockReadOnly

 If rst.EOF = False Or rst.BOF = False Then
    rst.MoveFirst
    Debug.Print rst!UserID
 End If

 Set rst = Nothing
 Acon.Close
End Sub

连接本身打开正常，但奇怪的是记录集无法打开，我得到运行时错误说

无效密码

密码绝对正确（由连接开头证明）。在数据库上设置密码时，我确保选择了传统加密选项以实现兼容性。我也使用此代码打开一个不同的数据库，它工作正常。

有人知道为什么它可能不起作用吗？

无法打开ADODB记录集（带密码）

0 个答案: