无法打开ADODB记录集(带密码)

时间:2017-11-27 11:37:29

标签: vba ms-access access-vba adodb

我有以下代码打开到另一个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

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

  

无效密码

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

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

0 个答案:

没有答案