Base de donnée en VB

Bonjour,
je souhaite entrer le num d une CIN dans une zone de text en appuiyan sur un bouton si ce num existe sur la base de donneé l enregistrement en entier s affiche sur une list box voila le programme

Sub rechercher()
Dim rs As Recordset
Dim ok As Boolean
Set rs = db.OpenRecordset("client", dbOpenDynaset)
ok = False
While (Not rs.EOF And ok = False)
If (rs(0) = Text1.Text) Then
ok = True
List1.AddItem rs(1)
Else
rs.MoveNext
End If
Wend
End Sub
merci d avance