Erreur access vba urgent

Bonjour,
j ai ecrit un code en vba et il apparait qui l ya une erreur quelque part
bon je m explique j ai creer une base de donn"es sous access 2003 +un formulaire de sécirité pour le login et le mot de passe bon j ai une table "users" contennet(login password et user)
bon je veux selon le champs user ouvrir un formulaire si user=administrateur le formulaire "menu1" s ouvre si user=limite le formulaire "menu s ouvre
mais avec se code ni l un ni l autre ne se lancent aidez moi svp c urgent
merci d avance
voila le code
Private Sub Commande8_Click()
Static i As Byte
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT [LOGIN],[PASSWORD],[USER] FROM USERS WHERE LOGIN = '" & Me.LOGIN & "' AND [PASSWORD]='" & Me.PASSWORD & "';")
If Not rs.EOF Then
If User = "administrateur" Then
stDoName = "menu1"
DoCmd.OpenForm "menu1", acNormal, , , , acWindowNormal
End If
If User = "limite" Then
stDoName = "menu"
DoCmd.OpenForm "menu", acNormal, , , , acWindowNormal
End If
DoCmd.Close acForm, "Formulaire1"
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