Bouton valider

Bonjour, j'ai fais ce code ci dessous mais j'ai un message d'erreur quand je l'exécute.
Le message d'erreur est le suivant :
Erreur d'exécution ''3145''
Erreur de syntaxe dans la clause WHERE.
Quand je fais le debogage la ligne 'set rs= current Db. OpenRecord (dsl) est en jaune.
Private Sub Commande4_Click()

Me.Requery

Dim sql As String
Dim rs As DAO.Recordset
Static i As Byte


sql = "SELECT * FROM Table_Login WHERE Login = '" & Me.Login & "' AND PASWD ='" & Me.Motdepasse & "';"
Set rs = CurrentDb.OpenRecordset(sql)

If Not rs.EOF Then
DoCmd.OpenForm "FormulaireAOuvrir", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "F_Entree"
User_id = rs("LOGIN").Value
User_droits = rs("DROITS").Value
Else
MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
i = i + 1
End If

If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If

End Sub