Problee requete sous Access

Bonjour a tous.

voila j'ai un probléme sur ma requéte :

j'ai mis une zone de liste modifiable et j'aimerais que tout les champs qui coreespondetn a mon client se mettent ajour eu aussi car mon probléme c'est que je ne fait bouger que le nom de mon client et non pa leur numeor de tel,leur adresse....

voici le code que j'ai essayé de faire mais cela ne marche pas :

Dim db As Database
Dim sqlCli As String
Dim RsCli As Recordset
Dim RsForm As Recordset
Dim CodeF As Integer

Set db = CurrentDb
Dim NomCl As String
If (IsNull(Me.NomClient) = False) Then
NomCl = Replace(Me.NomClient, "'", " ")
Me.NomClient = NomCl

sqlCli = "select T_Client.[CodeClient], T_Client.[Telephone], T_Client.[Adresse], T_Client.[Mail], T_Client.[Fax], T_Client.[CodePostal], T_Client.[Ville],FROM T_Client, where (T_Client.[NomClient]='" & NomCl & " )"

Set RsCli = db.OpenRecordset(sqlCli)

If (RsCli.BOF) Then
Else
RsCli.MoveFirst
Me.CodeClient = RsCli!CodeClient
CodeClientGlobal = Me.CodeClient
NomClientGlobal = Me.NomClient
Me.Telephone = RsCli!Telephone
Me.Adresse = RsCli!Adresse
Me.Mail = RsCli!Mail
Me.Fax = RsCli!Fax
Me.CodePostal = RsCli!CodePostal
Me.ville = RsCli!ville
End If
RsCli.Close
db.Close

Else
sqlForm = "SELECT Max(CodeClient) AS Maxi FROM T_CLIENT"

Set RsForm = db.OpenRecordset(sqlForm)
RsForm.MoveFirst
CodeF = RsForm!Maxi
CodeF = CodeF + 1

Me.CodeClient = CodeF
Me.Telephone = Null

Me.Adresse = Null
Me.Mail = Null
Me.Fax = Null
Me.CodePostal = Null
Me.ville = Null

RsForm.Close
db.Close
End If

et donc sa ne passe pa a sqlCli="select T_Client.[CodeClient], T_Client.[Telephone], T_Client.[Adresse], T_Client.[Mail], T_Client.[Fax], T_Client.[CodePostal], T_Client.[Ville],FROM T_Client, where (T_Client.[NomClient]='" & NomCl & " )"

voila j'espére que quelqu'un suara m'aidé

merci d'avoir eu la patience de s'étre plongé dans mon probléme