codice:
Set cn = New ADODB.Connection       ' creo l'oggetto connessione e apro il database
cn.CursorLocation = adUseClient
datamdb = App.Path & "\" & "mdb" & "\" & "miodatabase .mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & datamdb & ";jet oledb:database password=miapassword ", , , adAsyncConnect
ricordati di creare le variabili corrette !!!
cn e datamdb = č una variabile creata in un modulo bas
dopo di che ti crei i tui recordset x aprire le tabelle che vuoi
ciao