Excel VBA ADODB后期绑定错误

Question

实际上，每次我使用Early绑定代码来使用ADODB Connection时，但是现在我想使用Late Binding Code。据我看来，代码似乎是完美的，但我却不知道如何得到错误，例如“参数类型错误，超出可接受范围或彼此冲突”。

Sub Test()
Dim cn As Object
Dim rs As Object
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RecordSet")
cn.Open "Provider=Microsoft.JET.Oledb.4.0;Data Source=Y:\Operational Non Sensitive\Avon UK\UK Voice Productivity\UK AHT Report_.mdb"
rs.Open "Table1", cn, adOpenDynamic, adLockOptimistic
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

Answer 1

您的绑定时间较晚，因此像adOpenDynamic/ 这样的枚举adLockOptimistic不存在并且默认为空变体。

在代码中将它们定义为const，ADOVBS.INC列出它们的名称和值。

Const adOpenDynamic = 2
Const adLockOptimistic = 3