codice:
Private Sub COMMAND1_Click()
Dim i as Integer
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
'SENZA DSN DI SISTEMA
cn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Documenti\VB\db.mdb"
'CON DSN DI SISTEMA
'cn.ConnectionString = "Provider=MSDASQL; Data Source=DSN_ACCESS; Database=; User Id=; Password=; Security Info=True"
cn.Open
'QUERY STATICA
Set rs = cn.Execute("SELECT * FROM mia_tabella WHERE nome='pippo'")
'QUERY DINAMICA
'<--Set rs = cn.Execute("SELECT * FROM mia_tabella WHERE nome='" & txt_NOME & "'")
rs.MoveFirst
i=0
While Not rs.EOF
for i=0 to 9 '<--supponendo che il tuo record sia composto da 10 campi
Mia_ListBox.AddItem rs.Fields(i)
i=i+1
Next i
rs.MoveNext
Wend
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub