Variable global

Hola buen día tengo un gran problema en el programador de access 2007 la cosa esta así tengo una tabla en la que tengo los campos usuario, clave y tipo. Después tengo un formulario en el que te pide el usuario y la clave en este tengo este código:
Option Compare Database
Option Explicit
Public tipodeusuario As String
Private Sub Comando4_Click()
Dim algo As String
Dim db As Database
Dim SqLline As String
Dim Result As Object
If Usuario = " " Or Contrasena = " " Then
    algo = MsgBox("Porfavor, complete todos los campos", 16, "Omision")
Else
SqLline = "select* from usuarios where Usuario = '" & Usuario & "'and Password = '" & Contrasena & "';"
Set db = CurrentDb()
Set Result = db.OpenRecordset(SqLline)
If Result.EOF And Result.BOF Then
    algo = MsgBox("El nombre de usuario o contraseña son incorrectos", 16, "Discrepancia")
Else
tipodeusuario = Result.tipo
DoCmd.OpenForm "Historial de servicios"
DoCmd.OpenForm "Acceso inicial"
DoCmd.Close
End If
Result.Close
db.Close
Set Result = Nothing
Set db = Nothing
End If
End Sub
despues que el usuario1 ingresa su clave le abre el formulario 1, pero no me respeta la sesion del usuario 1 en el formulario 1, he estado investigando y se supone que debo crear un modulo con una variable global y posterior a esto tengo que poner en cada formulario la variable pero no se como porfavor te pido auxilio, te estare agradecido infinitamente.
Jorge