我有以下代码打开到另一个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
连接本身打开正常,但奇怪的是记录集无法打开,我得到运行时错误说
无效密码
密码绝对正确(由连接开头证明)。在数据库上设置密码时,我确保选择了传统加密选项以实现兼容性。我也使用此代码打开一个不同的数据库,它工作正常。
有人知道为什么它可能不起作用吗?