Dim strDBPass As String Dim db As new adodb.Connection Dim rec As new adodb.RecordsetstrDBPass = App.Path + "\db1.MDB;Jet OLEDB:Database Password=microsoft;" db.CursorLocation = adUseClient db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPass rec.Open "select * from 資料表1", db, adOpenStatic, adLockPessimistic .................................... End Sub
Dim db As new adodb.Connection
Dim rec As new adodb.RecordsetstrDBPass = App.Path + "\db1.MDB;Jet OLEDB:Database Password=microsoft;"
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPass
rec.Open "select * from 資料表1", db, adOpenStatic, adLockPessimistic
....................................
End Sub