Bonjour a tous

Apres une matinee de recherche active, et n'ayant pu trouver une solution a mon probleme, je me tourne vers vous. Il s'agit d'un probleme de "transfert de Public Variable" en deux Forms

Form A - FAuthentification - <Form Classique d'authentification CODE + PWD>
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Explicit
Public PubCEntity As String
] ... [ 
If Me.Password.Value = DLookup("PASSWORD", "ENTITIES", "[ACRONYM] ='" & Me.CboEntity.Value & "'") Then
        PubCEntity = Me.CboEntity
        DoCmd.Close acForm, "FAuthentification", acSaveYes
        DoCmd.OpenForm "MAIN MENU "
    Else
        MsgBox "Password Invalid.  Please Try Again", vbOKOnly, "Invalid Entry!"
        Me.Password.SetFocus
    End If
-----------------------------------------------------------------

Form B -FCreationRecord
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Option Compare Database
Option Explicit
Public PubCEntity As String
 
Public Function LoadCurrentEntity() As String
    LoadCurrentEntity = PubCEntity
End Function
Et lorsque je fais un MsgBox de LoadCurrentEntity, le champ est vide

Ou se situe mon erreur ?
Merci a vous
S.