Se ti basta questo esempio:
Fai una nuova form...
Aggiungi Project -> References -> Microsoft ActiveX Data Objects
Codice:
Private Sub Form_Load()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\Administrator\Documenti\db1.mdb;"
rs.Open "Select * From Query2;", db, 3, 3
While Not rs.EOF
MsgBox "" & rs.Fields("ID")
rs.MoveNext
Wend
End Sub