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
dbEmbarcaciones.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbEmbarcaciones.RecordsetType = 1
dbEmbarcaciones.RecordSource = "Select * FROM Embarcaciones"
dbEmbarcaciones.Refresh
dbEmbarcaciones.Recordset.MoveFirst

dbGuias.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbGuias.RecordsetType = 1
dbGuias.RecordSource = "Select * FROM [Flujo Embarcaciones]"
dbGuias.Refresh
        
        Set gDefaultDatabase = dbEmbarcaciones.Database
        Set gGuias = dbGuias.Database
        Procedimientos para dibujar el Grid
    setGrid
    displayList
    initVariables
End Sub
