Formulario ( com variaveis )

Descupe estar perguntando novamente...

o comando abaixo esta funcionado perfeitamente, o forms logon ... chama o forms ( A- MENU ) a variavel nivel é alimentada..

Forms![A - MENU].Campo = "'" & Nivel & "'"


Porem a casos que o forms ( A - MENU )  e fechado e ao reabri-lo a variavel esta vazio...


Como resolver este problema...


segue script abaixo:

***********

Private Sub Confirmar_Click()
Dim T As Recordset, d As Database
Set d = CurrentDb
Set T = d.OpenRecordset("SENHA", , dbOpenDynaset)
Dim Nivel
While T.EOF = False
If LOGON = T!LOGON And SENHA = T!SENHA Then
Nivel = T!Nivel
MsgBox "SENHA CONFIRMADA! " & LOGON, vbInformation, "AVISO !"
DoCmd.OpenForm "A - MENU"
Forms![A - MENU].Campo = "'" & Nivel & "'"
Me.Visible = False
Exit Sub
Else
T.MoveNext
End If
Wend
MsgBox "LOGON OU SENHA INCORRETOS!", vbCritical, "AVISO !"
End Sub

Desculpe fiz conforme abaixo e não funcionou...

Option Compare Database
 

'variável de escopo público
Public nivelUsuario As Long
 

Public Function Nivel(Optional nivelUsuario As Long = 0) As Long
If Nivel = 0 Then

    'função recebe o valor da variável nivel
    Nivel = nivelUsuario
Else

    'Variável recebe valor do argumento Nivel
    Nivel = nivelUsuario
    End If
End Function

***

como poderia fazer para funcionar?

Desabilitei a funçao dim Nivel Conforme solicitado..

Private Sub Confirmar_Click()
Dim T As Recordset, d As Database
Set d = CurrentDb
Set T = d.OpenRecordset("SENHA", , dbOpenDynaset)
'Dim Nivel
While T.EOF = False
If LOGON = T!LOGON And SENHA = T!SENHA Then
Nivel = T!Nivel
MsgBox "SENHA CONFIRMADA! " & LOGON, vbInformation, "AVISO !"
DoCmd.OpenForm "A - MENU"
Forms![A - MENU].Nivel = "" & Nivel & ""
Me.Visible = False
Exit Sub
Else
T.MoveNext
End If
Wend
MsgBox "LOGON OU SENHA INCORRETOS!", vbCritical, "AVISO !"
End Sub