Variable para obtener el nombre de usuario, nombre de computadora
Private S1 As String
Funcin para obtener el nombre de usuario de red que se conecto a la
unidad de red
Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
Funcin para obtener le nombre de usuario de Windows
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Funcin para obtener el nombre de la computadora
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 Variable para almacenar la base de datos, donde se va a realizar
bsquedas por medio de la funcin DLookUp
Dim gDefaultDatabase As Database
Variable para establecer conexin a la base de datos
Private db As ADODB.Connection
Variables para crear recordsets
Private rcds As ADODB.Recordset
Private rcds1 As ADODB.Recordset
Private rcds2 As ADODB.Recordset
