apertura database access

[Misterxxx]

temo ti manchino le basi per vba, comunque prova qualcosa come (è un codice incompleto):

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
nomedb = "F:\database.accdb"
Dim StringaDiConnessione
StringaDiConnessione = "{Microsoft Access Driver (*.mdb, *.accdb)};Dbq=" & nomedb & " Persist Security Info=False;"
Set conn = New ADODB.Connection
conn.ConnectionString = StringaDiConnessione
conn.Open