Liaison Microsoft Access et VB6

Bonjour,

Jai besoin de votre aide pour réaliser une apllication VB. Jai créé une Base de Données au format access 2000, puis jai utilisé le composant Microsoft Dao 3.6 object library pour la liaison. Pour l'ajout des enregistrements, tout marche. Cependant, j voudrai créé une listbox pour afficher les resultats de la recherche avec la procédure suivante:

If Option1.Value = True Then
sql = "select * from Contacts where Nom='" & Text1.Text & "'"
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
List1.AddItem rs.Fields("Prenom")
List2.AddItem rs.Fields("Tel1")
List2.AddItem rs.Fields("Tel2")
List2.AddItem rs.Fields("Tel3")
rs.Close
End If

Cependant, il nafiche qu'un seul resultat de la BD. Comment faire pour qu'il affiche tous les noms répondant au critère de recherche dans la liste? Comment implémenter des boutons de navigation tels que <<, <, >, >> pour la navigation dans les données de la base?
Jai utilisé les methodes rs.MoveNext, movelast... mais sa marche pas.
Merci de votre aide... Bne journée