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