Private Sub Form_Load()
Dim dbName As String
Dim num_records As Integer
    dbName = frmMain.Ap_Path & frmMain.dbName
    Set db = New ADODB.Connection
    db.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & dbName
    Set rcds = New ADODB.Recordset

    RsvUsuario.Text = frmLogin.LoginUser_ID
    
     WindowState = vbMaximized
     
dbServicios.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbServicios.RecordsetType = 1
dbServicios.RecordSource = "Select * FROM AServicios"
dbServicios.Refresh
dbServicios.Recordset.MoveFirst

dbUlog.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbUlog.RecordsetType = 1
dbUlog.RecordSource = "Select * FROM Userlog"
dbUlog.Refresh
        Set gDefaultDatabase = dbServicios.Database
        
     Estos son los 3 procedimientos que dibujan el Grid
SetGrid  dispone los caractersticas del Grid
    setGrid
displayList muestra los datos que contendr el Grid
    displayList
initVariables inicia las variables para conocer el status del registro actual
    initVariables
End Sub
