有一个数据连接,就是jetOLEDB的那个东西,要改成4.0才可以!!
完整的打开方式是这样的!是ADO的打开方式
Dim adoPrimaryRS As Recordset
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51(就是这里,要改成4.0);Data Source=E:\VB\NWIND.MDB;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select Address,BirthDate,City from Employees", db, adOpenStatic, adLockOptimistic