Erreur requete SQL sous access

Bonjour,


J'ai un petit souci de requête SQL dans mon ch'ti programme en vba.


Le programme bug sur la requete de maj.

Private Sub Valider_Click()

'On déclare les variables
Dim Amdp As String 'Amdp = Mot de passe actuel
Dim Nmdp As String 'Nmdp = Nouveau mot de passe
Dim Nmdp2 As String 'Nmdp2 = Nouveau mot de passe confirmé
Dim appFormation As Database 'appFormation = Base de donnée courrante
Dim EnregM As Recordset 'On déclare le jeu d'enregistrement des mots de passe
Dim nom As String 'Nom = Login de l'utilisateur



Set appFormation = CurrentDb

Set EnregM = CurrentDb.OpenRecordset("select MotDePasse from Utilisateurs where MotDePasse = ' & Me.Amdp & ' ;")




If Me.Nmdp= sncf Then

MsgBox ("Le mot de passe choisit est utilisé par défaut. Veuillez en choisir un autre.")

Else

If Me.Nmdp2 = Me.Nmdp Then

Me.Amdp = Me.Nmdp

MsgBox ("Le changement de votre mot de passe a bien été pris en compte")

Else

MsgBox ("La saisie de confirmation de votre mot de passe est erronée. Veuillez répéter l'opération")

End If
End If


Set EnregM = CurrentDb.OpenRecordset("UPDATE Utilisateurs SET MotDePasse = ' & Me.Nmdp & ' WHERE Login= ' & Me.Nom & ' ;")
EnregM.Close
appFormation.Close

End Sub




J'attends vos réponses. :D