Execution d'une requête VB/Access

Au secours!!!!
j'ai un pb lors de l'excution de ma requete.Qlq 1 peut m'aider.
le code est le suivant
Dim db As Database
Dim rep As Integer
Dim sql As String
Dim rst As Recordset


' Requete d'extraction des donnees du patient
Set db = Opendatabase(cheminbase)
sql = " SELECT * FROM PATIENTS where PATIENTS.[Nom]='" & FrmCaisse.TxtNom1.Text & "'"

Set rst = db.OpenRecordset(sql, dbOpenDynaset)
If Not (rst.BOF And rst.EOF) Then

Do While Not rst.EOF

Me.TxtNom1.Text = rst.Fields("Nom").Value
Me.TxtPrenom1.Text = rst.Fields("Prenom").Value
Me.TxtAdr1.Text = rst.Fields("Adresse").Value
Me.TxtCPostal1.Text = rst.Fields("Code_postal").Value
Me.TxtVille1.Text = rst.Fields("Ville").Value
rst.MoveNext
Loop

message d'erreur: run time error 13 type mismatch