Recordset et Access

Bonjour,

Je vous remercie par avance du temps que vous voudrez bien me consacrer pour mon petit problème.
Mon soucis est que je n'arrive pas à accéder à des enregistrements autres que celui de ma première ligne dans ma table client. Lorsque j'effectue donc une recherche d'un nom dans ma base, le recordset reste vide et donc on me renvoie aucun resultat. Je vous montre le code :

Private Sub B_client_rechercher_Click()

Dim nompersonne As String
Dim requete As String
Dim cnnl As ADODB.Connection
Set cnnl = CurrentProject.Connection
Dim critere As String


Dim recordset As New ADODB.recordset
recordset.activeconnection = cnnl

If LD_client_recherche.Value = "Nom" Then
critere = CLI_nom
End If
If LD_client_recherche.Value = "Prenom" Then
critere = CLI_prenom
End If
If LD_client_recherche.Value = "Société" Then
critere = CLI_société
End If
If LD_client_recherche.Value = "Mail" Then
critere = CLI_mail
End If
If LD_client_recherche.Value = "Tel1" Then
critere = CLI_tel1
End If
If LD_client_recherche.Value = "Tel2" Then
critere = CLI_tel2
End If
If LD_client_recherche.Value = "Tel3" Then
critere = CLI_tel3
End If
If LD_client_recherche.Value = "Fax" Then
critere = CLI_fax
End If


requete = "select * from client where '" & critere & "' = '" & T_client_recherche.Value & "'"
recordset.Open requete ' execution requete

If Not recordset.EOF Then

T_client_consulter_nom.Value = recordset.Fields(1) ' remplissage des champs avec le resultat de la requête
T_client_consulter_prenom.Value = recordset.Fields(2)
T_client_consulter_société.Value = recordset.Fields(3)
T_client_consulter_adresse.Value = recordset.Fields(4)
T_client_consulter_codepostal.Value = recordset.Fields(5)
T_client_consulter_ville.Value = recordset.Fields(6)
T_client_consulter_mail.Value = recordset.Fields(7)
T_client_consulter_tel1.Value = recordset.Fields(8)
T_client_consulter_tel2.Value = recordset.Fields(9)
T_client_consulter_tel3.Value = recordset.Fields(10)
T_client_consulter_fax.Value = recordset.Fields(11)
T_client_consulter_pays.Value = recordset.Fields(12)
T_client_consulter_genre.Value = recordset.Fields(13)



Else

message = MsgBox("Aucun resultat pour cette recherche", vbExclamation, "Recherche")


End If

recordset.Close
Set recordset = Nothing
Set cnnl = Nothing

End Sub

Merci de votre aide