Dim db As ADODB.Connection Dim tb As ADODB.Recordset Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=d:\yijing1.mdb" Set tb = New Recordset tb.Open "select * from yijing", db, adOpenStatic, adLockOptimistic数据库是用accessxp建立的
就可以了
Dim tb As ADODB.Recordset
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=d:\yijing1.mdb"
Set tb = New Recordset
tb.Open "select * from yijing", db, adOpenStatic, adLockOptimistic数据库是用accessxp建立的