你这样是用ADO来打开数据库的。可以通过如下方式来打开数据库: Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient //DSN方式,建议采用。 db.Open "PROVIDER=MSDASQL;dsn=TestDatabase;uID=;pwd=;database=TestDatabase;" //DAO方式 db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb;"
完全可以,如下: Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.Open "D:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb", "Admin" rs.Open "Select * from Authors ", cn
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
//DSN方式,建议采用。
db.Open "PROVIDER=MSDASQL;dsn=TestDatabase;uID=;pwd=;database=TestDatabase;"
//DAO方式
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb;"
"Data Source=\somepath\mydb.mdb;" & _
"User Id=admin;" & _
"Password=;"
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "D:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb", "Admin"
rs.Open "Select * from Authors ", cn