ADOMDBAssign

Dim DBFILE As String
DBFILE = "c:\temp\databasename.mdb"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBFILE & ";Persist Security Info=False"
'questa riga setta la stringa SQL da passare per il riempimento del recordset

'adodc1.recordsource would = "SELECT * FROM..."

'

Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "table1"
Adodc1.Refresh