Boucle Pour Parcourir les ligne d'une table

Bonjour,

j'arrive pas a trouver la bonne boucle pour parcourir tout ma table et verifier le user dans toute la table .. mon code test juste la premier ligne de ma table ..

Dim User As Recordset
Set User = CurrentDb.OpenRecordset("Employee")

If Texte2 = User("UserName") And Texte4 = User("Password") And User("Profile") = "A" Then
MsgBox ("Admin")
DoCmd.Close
DoCmd.OpenForm ("Menu form")
ElseIf Texte2 = User("UserName") And Texte4 = User("Password") And User("Profile") = "U" Then
MsgBox ("Simple User")
DoCmd.Close
DoCmd.OpenForm ("Menu form")
Else
MsgBox ("Password Or UserName Incorrect")
End If