Private Sub Form_Load()
Dim dbName As String
deshabilita los botones que no se van a usar por ahora
cmdInsertarPago.Enabled = False
cmdReimprimirPago.Enabled = False
cmdLiberarEmbarcaciones.Enabled = False
cmdCambioEmbarcacion.Enabled = False
Oculta la etiqueta BuscarPor, los 8 cuadros de texto y la casilla de verifica.
lblBuscarPor.Visible = False
    txtConfirmacion.Visible = False
    txtCupon.Visible = False
    txtNombre.Visible = False
    txtHotel.Visible = False
    txtSubCanal.Visible = False
    txtAgente.Visible = False
    CasillaPagado.Visible = False
    txtActividad.Visible = False
    txtHora.Visible = False
    
    dbName = frmMain.Ap_Path & frmMain.dbName
Establece db como una nueva conexin ADODB
    Set db = New ADODB.Connection
Abre la Conexin de base de datos teniendo como fuente: dbName
    db.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & dbName
Establece nuevos recordsets
    Set rcds = New ADODB.Recordset
    Set rcds1 = New ADODB.Recordset
    Set rcds2 = New ADODB.Recordset
    
    RsvUsuario.Text = frmLogin.LoginUser_ID
    Se llena el control data dbServicios con la tabla AServicios
 dbServicios.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbServicios.RecordsetType = 1
dbServicios.RecordSource = "Select * FROM AServicios"
dbServicios.Refresh
dbServicios.Recordset.MoveFirst
Se llena el control data dbUlog con la tabla Userlog
dbUlog.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbUlog.RecordsetType = 1
dbUlog.RecordSource = "Select * FROM Userlog"
dbUlog.Refresh
   End Sub
