有一个数据连接,就是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
试试
主要是Provider=Microsoft.Jet.OLEDB.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