补充一下,test.mdb里面已经建好了一张Atable的表,

引用 MicroSoft ActiveX Data Objects 2.0 Library 以上

Option Explicit

Dim Cnn As ADODB.Connection

Private Sub CmdAdd_Click()
    
    Cnn.Execute "Insert Into 表(Name,Age) Values('张三',18)"
    
End Sub

Private Sub Form_Load()
    
    Dim strCurPath As String

    If Right(App.Path, 1) = "\" Then
        strCurPath = App.Path
    Else
        strCurPath = App.Path & "\"
    End If
    
    Set Cnn = New ADODB.Connection
    With Cnn
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCurPath & "Test.mdb;Mode=Read|Write;Persist Security Info=False"
        .CursorLocation = adUseClient
        .Mode = adModeReadWrite
        .Open
    End With
    
End Sub

'引用 MicroSoft ActiveX Data Objects 2.0 Library 以上
Sub access()
    Dim iRe As ADODB.Recordset
    Dim iConc As String
    
    iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
        ";Data Source=c:\test.mdb" 'c:\test.mdb是你的数据库名
    Set iRe = New ADODB.Recordset
    With iRe
        .CursorLocation = adUseClient
        .Open "select  Name,age from 你的表名", iConc, adOpenKeyset, adLockOptimistic
    End With
    MsgBox iRe.Fields("name") '你的处理语句
End Sub

'modle1.bas

Public Enum DO_SQL
  SQL_Read = 1
  SQL_Write = 3
End Enum


public Conn as object

'打开数据库
Public Sub LoadDataBase()
Dim StrSQL As String
StrSQL = "DBQ=数据库名.mdb" + ";DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn = CreateObject("ADODB.CONNECTION")
Conn.Open StrSQL
End Sub

'查询数据库
Public Sub OpenData(ByRef rs As Object, ByVal SQL_String As String, DoWhat As DO_SQL)
'Dim Rs As Object
Set rs = CreateObject("ADODB.RecordSet")
rs.Source = SQL_String '"select * from user where username='" & u & "'"
rs.Open rs.Source, Conn, 1, DoWhat
End Sub

'关闭查询
Public Sub CloseData(ByRef rs As Object)
On Error Resume Next
rs.Close
Set rs = Nothing
End Sub

'刷新数据
Public Sub RefData(ByRef rs As Object, Optional StillOpen As Boolean)
rs.Update
If Not StillOpen Then
  rs.Close
  Set rs = Nothing
End If
End Sub

public sub CloseDatabase
conn.close
end sub

好用100%
运行程序时，先调用loaddatabase，以后就可以用opendata，closedata,regdata操作了,程序运行玩了再调用closedatabase.