a sample ... connection

Dim db_file As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

    ' Get the data.
    db_file = App.Path
    If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
    db_file = db_file & "TheDatabase.mdb"

    ' Open a connection.
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & db_file & ";" & "Persist Security Info=False"
    conn.Open

    ' Open the Recordset.
    Set rs = conn.Execute("SELECT name FROM Test WHERE id = '100'", , adCmdText)
    If Not rs.EOF OR rs.BOF then
    rs.MoveFirst
    Text1.Text = rs![name]
    End If
    
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing