Mostrar nombre de usuario logueado en formulario de Access

Tengo una base de datos, es un punto de ventas, el motivo de mi consulta es para llamar el nombre de la persona que inicio sesión y el puesto que tiene, he logrado llamar el puesto que tiene, pero aun no he conseguido llamar el nombre completo de la persona.

Este es el diseño de mi tabla de usuarios y la vista de hoja de datos

Tengo un Formulario al que tengo por nombre Acceso, en el cual se loguea la persona que manipulara el sistema, el cual tiene un botón llamado CmdAceptar, al hacer clic tiene el siguiente evento:

Private Sub cmdAceptar_Click()
On Error GoTo err:

'variable local para nombre y clave de usuario
Dim NOMUSU As String
Dim CVEUSU As String

'Asignar el valor de los controles a las variables locales
NOMUSU = UCase(Nz(Me.TxtNombre_Usuario.Value, ""))
CVEUSU = UCase(Nz(Me.TxtCLAVE_USUARIO.Value, ""))

If IsEmpty(NOMUSU) Or IsEmpty(CVEUSU) Then
MsgBox "Datos Incompletos...", vbOKOnly + vbCritical, "Imposible Ingresar!!"
Else
'Buscar Usuario con los datos ingresados
If ExisteUsuario(NOMUSU, CVEUSU) = True Then
MsgBox "Bienvenido al Sistema", vbOKOnly + vbInformation, "Acceso Exitoso"
DoCmd.Close 'Cerrar ventana de Acceso
'Codigo para entrar al sistema
Application.DoCmd.RunCommand acCmdAppMaximize
DoCmd.OpenForm "VENTAS_m", acNormal
Else
NumIntento = NumIntento + 1
If NumIntento <= 2 Then
MsgBox "Usuario o Clave incorrecta", vbCritical + vbOKOnly, "Acceso Denegado"
Me.TxtNombre_Usuario.Value = ""
Me.TxtCLAVE_USUARIO.Value = ""
Me.TxtNombre_Usuario.SetFocus
Else
MsgBox "Demasiados Intentos, el Sistema se cerrara!", vbCritical + vbOKOnly, "Fallas de Acceso"
DoCmd.Quit
End If
End If
End If

Exit Sub
err:
MsgBox err.Description
End Sub

Este Formulario Acceso se lleva de la mano con un modulo llamado Sesión, dicho modulo tiene el siguiente código:

Option Compare Database
Option Explicit

'VARIABLES DE SESION
'SE NOMBRARAN IGUAL TAL COMO EN EL DISEÑO DE LAS TABLAS, PERO CON EL PREFIJO "x"
'PARA IDENTIFICARLAS COMO VARIABLES DE SESION

'----------- DATOS DE USUARIO-----------
Public xNOMBRE_USUARIO As String
Public xCLAVE_USUARIO As String
Public xNOMBRE As String
Public xAPELLIDO_MATERNO As String
Public xAPELLIDO_PATERNO As String
Public xVENTAS As Boolean
Public xADMINISTRAR As Boolean
Public xREPORTES As Boolean
Public xCATALOGOS As Boolean
Public xCONSULTAS As Boolean
Public xCANCELAR_VENTA As Boolean
Public xFACTURAS As Boolean
Public xINVENTARIOS As Boolean
'---------------------------------------
Public NumIntento As Byte

Public Function usuarioActivo() As String
usuarioActivo = xNOMBRE_USUARIO
End Function

Al terminar todoeste proceso se abre un ultimo formulario al que llamo Ventas, en este formulario es donde quiero el nombre del usuario y el puesto que tiene, dicho formulario tiene como evento al cargar el siguiente código:

Private Sub Form_Load()
Me.lblFecVta.Caption = Date
Me.lblHRVta.Caption = Time
Form!TxtPuesto.Value = xNOMBRE_USUARIO
End Sub

El Form!TxtPuesto.Value = xNOMBRE_USUARIO solo llama el puesto que tiene el usuario en un cuadro de texto llamado TxtPuesto, lo que me falta es que llamar el nombre completo del usuario que ingreso al sistema en otro cuadro de texto o ¿ abra forma de llamarlo en el mismo cuadro de texto TxtPuesto? De no ser asi mi idea es llamar el nombre en otro cuadro de texto.

Les escribiré como quisiera que se muestre el nombre del usuario logueado

TxtPuesto: Admin TxtNombre: Marvin Israel Gongora Caamal(esto practicamente se tomara de la tabla de usuarios). Pero no se como realizar este proceso.

Disculpen si escribí mucho, soy nuevo en esto de la programación y aun voy aprendiendo, hay ocasiones en que ya no se que hacer, como en esta ocasión.

Espero y exista alguien que me pueda ayudar en este Problema