Crea un progetto...tasto destro sulla palette degli oggetti...components...
Seleziona Microsoft ADO Data Control...ora non so se č la procedura giusta, ma metti il data control sulla form e poi cancellalo... In questo modo VB vedrā comunque gli oggeti ADO...
Fai un DB...crea una tabella con il primo campo che contiene un numero... In questo caso ho chiamato il DB db1.mdb e la tabella Tabella1...
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=x:\Percorso\db1.mdb;"
rs.Open "Select * From Tabella1;", db, 3, 3
While Not rs.EOF
MsgBox "" & rs.Fields(1)
rs.MoveNext
Wend
End Sub