1.链接到MDB数据库
Private cnn As ADODB.Connection
Private rst As ADODB.Recordset
'取得应用程序路径
    Dim str As String
    str = App.Path & "\MDB"
    If Right(str, 1) <> "\" Then
    str = str + "\"
    End If
    
    '链接到数据库
    strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & str & "*.mdb(你的数据库);Jet OLEDB:Database Password=***(你的密码)"
    cnn.Open strcnn    Set rst = New ADODB.Recordset
    rst.CursorType = adOpenKeyset
    rst.LockType = adLockOptimistic
    rst.Open "***(你的表名)", cnn, , , adCmdTable'链接数据库成功,但是要在工程-引用里面把ADO和ADO Recordset的相关项勾上,将数据存到数据库中用rst.AddNew 然后rst!字段=数据 然后rst.update  就可以了;are u understand??