VBA OpenArgs Problemes ouverture 2nd Formulaire

bonjour

J'ai un formulaire "identification" et un "menu"

Le but est de "sécuriser" mon programme pour que dès le démarrage puisse faire apparaitre le formulaire identification.

Apres identification, faut faire apparaitre le fichier menu mais avec des restrictions.

Voilà les codes VBA :

identification :

Option Compare Database
 
 
Private Sub btn_ok_click()
 
Dim rslogin As DAO.Recordset
Set rslogin = CurrentDb.OpenRecordset("SELECT * FROM DIRECTION WHERE NOM_DIRECTION=' " & Me.LDR_LOGIN & " ' AND MDP_DIRECTION=' " & Me.LDR_MDP & " ';")
 
If Not rslogin.EOF Then
DoCmd.OpenForm "Menu", , , , , , rs!role
DoCmd.Close acForm, "identification"
Else
MsgBox "ERREUR LOGIN OU MOT DE PASSE"
End If
 
rslogin.Close
End Sub

menu :

Option Compare Database
 
'*********************************************************************************************
' MODULES EVENEMENTIELS
'*********************************************************************************************
 
'---------------------------------------------------------------------------------------------
' sur le clic du bouton "Etat de frais" : ouvre le formulaire de la gestion des états de frais
'---------------------------------------------------------------------------------------------
Private Sub btn_formEtatFrais_Click()
    DoCmd.OpenForm "etatDeFrais"
End Sub
 
'---------------------------------------------------------------------------------------------
' sur le clic du bouton "Session" : ouvre le formulaire de la gestion des sessions
'---------------------------------------------------------------------------------------------
Private Sub btn_Session_Click()
    DoCmd.OpenForm "gestionSessions"
End Sub
 
'---------------------------------------------------------------------------------------------
' sur le clic du bouton "Inscription" : ouvre le formulaire de la saisie des inscriptions
'---------------------------------------------------------------------------------------------
Private Sub btn_Inscription_Click()
    DoCmd.OpenForm "saisieInscriptions"
End Sub
 
'---------------------------------------------------------------------------------------------
' sur le clic du bouton "Présence" : ouvre le formulaire de la saisie des présences
'---------------------------------------------------------------------------------------------
Private Sub btn_Presence_Click()
    DoCmd.OpenForm "saisiePresence"
End Sub
 
Private Sub Form_Open(Cancel As Integer)
 
Dim role As String
role = OpenArgs
Me.btn_Session.Enabled = (role = "DRH") Or (role = "FORMATION")
Me.btn_Inscription.Enabled = (role = "DRH") Or (role = "INSCRIPTION")
Me.btn_Presence.Enabled = (role = "DRH") Or (role = "GESTION")
Me.btn_formEtatFrais.Enabled = (role = "DRH") Or (role = "GESTION")
 
End Sub

Le débug dit qu'il y a une erreur au niveau de role = OpenArgs...

Une solution? merci