ACCESS login et mot de passe

Salut à tous,

J'ai crée un formulaire login/mot de passe qui permettra à un utilisateur de s'identifier et à la base de le reconnaître et en décider de lui donner ou non la permission d'y accéder à la base. Pour ce fait, j'ai crée une table "Tab_Users" et un formulaire " Connexion "

Table Tab_Users (TRIGRAMME, NOM, PRENOM, GROUPE, PASSWD) tous les champs sont de type texte. Un enregistrement d'exemple de cette table : Tab_Users(toto, picsou, donald, grp1, riri)

L'évènement on_click du bouton Connexion :
-------------------------------------------------------------------------------
Private Sub connexion_Click()

Me.Requery

Dim sql, User_id, User_groupe As String
Dim rs As DAO.Recordset

Static i As Byte

sql = "SELECT * FROM T_USERS WHERE TRIGRAMME = '" & me.txt_user & "' AND PASSWD ='"& Me.txt_pass & "';"

Set rs = CurrentDb.OpenRecordset(sql)

If Not rs.EOF Then

DoCmd.OpenForm "menu principal 1", acNormal, , , , acWindowNormal

DoCmd.close acForm, "F_CONNEXION"

User_id = rs("TRIGRAMME").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és", vbCritical
DoCmd.Quit
End If

End Sub
------------------------------------------------------------------------------
Cela fonctionne correctement mais j'aimerai l'améliorer
Je voudrais rajouter un test sur le groupe afin d'ouvrir le menu qui correspondrait à celui-ci.
cad j'ai 3 groupe qui sont: grp1, grp2 et grp3
avec 3 menus principaux qui sont :
menu principal 1, menu principal 2, menu principal 3

donc grp 1 = menu principal1 etc..

Pouvez vous m'aider?

Cdt. DJ OAKLEY