Private Sub Form_Load()
Dim dbName As String
Dim num_records As Integer
Dim SiguienteConsecutivo As Integer

    dbName = frmMain.Ap_Path & frmMain.dbName
    Set db1 = New ADODB.Connection
    db1.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & dbName
    Set rcd = New ADODB.Recordset
    Set rcd2 = 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

        Set gDefaultDatabase = dbEmbarcaciones.Database

 Dibuja el Grid, despliega los valores del Grid e inicializa las variables
    setGrid
    displayList
    initVariables
    End Sub
