Erreur sur le code

Private Sub connexion_Click()
Me.Requery
Dim [/contents/1062-le-langage-sql sql], User_id, User_groupe   As String
Dim rs As Recordset
Static i As Byte
sql = "SELECT * FROM T_users WHERE login = \'" & txt_user & "\' AND passwd =\'" & txt_pass & "\';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
  DoCmd.OpenForm "vehicules", acNormal, , , , acWindowNormal
  DoCmd.Close acForm, "F_Connexion"
  User_id = rs("login").Value
  User_groupe = rs("GROUPE").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ées", vbCritical
DoCmd.Quit
End If
End Sub