首先在工程菜单中引用“Microsoft ActiveX Data Objects 2。5 Library”
然后在窗体代码中加入
Dim db As Connection
Set db = New Connection
db。
CursorLocation = adUseClient
db。 Open "PROVIDER=Microsoft。Jet。OLEDB。4。0;Data Source=" & App。
Path & "\abcd。mdb;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS。 Open "select * from aaa" , db, adOpenStatic, adLockOptimistic
以上代码在VB6sp5 + Access2000中实现用代码实现ado的连接。
希望对你有用
。