VB如何连接ACCESS2000数据库

Question

越细越好，并最好有实例

Answer 1

Private db As DAO.Database, Record As DAO.Recordset        ' 数据库相关变量
Set db = DBEngine.OpenDatabase(dbName)
Set Record = db.OpenRecordset("tips")

Answer 2

Function StrConn()
    StrConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\DBWeb.mdb"
End FunctionFunction Main() As Boolean
    Set Conn = New Connection
    Set Rs = New Recordset
    Conn.Open StrConn
End Function

Answer 3

我用ADO连接：
工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）Option ExplicitDim WithEvents adoRS As Recordset
Dim db As Connection
'提数据事件
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=1234;"
'                           ##########################################
'打开密码是1234的Access2000数据库db1.mdb    Set adoRS = New Recordset
    
    adoRS.Open "SELECT * FROM 表", db, adOpenStatic, adLockOptimistic
    Set DataGrid1.DataSource = adoRS
    DataGrid1.Refresh
'添加事件
    adoRS.AddNew
    adoRS![字段a] = text1.Text
    adoRS![字段b] = text2.Text
    adoRS.UpdateBatch adAffectAll'删除
    adoRS.Delete
    adoRS.Requery
    Set DataGrid1.DataSource = adoRS
    DataGrid1.Refresh