'Setta Microsoft ActiveX Data Object dal menu Progetto->Riferimenti

'PROVA è il nome del DSN che punta al DB di Access



Dim DB As New ADODB.Connection
Dim Rst AS New ADODB.RecordSet
Dim VarC as String
Set DBM = New ADODB.Connection
Set Rst =New ADODB.RecordSet

DB.Open "PROVA" 'Nome del DSN
RstN.Open "SELECT * FROM NomeTabella",DB

Do while Not(RstN.EOF)
VarC = RstN("NomeCampoTabelle")
RstN.MoveNext
Loop

RstN.Close
DB.Close
Set RstN=Nothing
Set DB=Nothing