'global deffinitions
Dim Database As ADODB.Connection
Dim Adodc1 As ADODB.Recordset

'in a sub code like form_load
    Dim connstd As String,  tabel As String
     
    Set (Name of your database here could be anything) = New ADODB.Connection
    Database.CursorLocation = adUseClient
    connstd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (insert databasepath here, example C:\test.mdb) & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
    Database.Open connstd

    Set (Name you want for your table for easy access) = New ADODB.Recordset
    tabel = "insert here the table you want to use"
    Adodc1.Open tabel, connstd, adOpenKeyset, adLockPessimistic

Name_of_your_table!name_of_the_collum = something 'this is for writing
 something = Name_of_your_table!name_of_the_collum 'this is for reading