Private Sub displayList()
    Dim i, j As Integer
Dim strSelect As String
Dim mntliq As Single
Dim Agencia As String

On Error GoTo Terminar
    
    DoEvents
    With SCGrid1
        .Visible = False
        .Redraw = False
       
        strSelect = "Select Embarcacion, TipoEmbarcacion, NConfirmacion, PaxAsignados, Libera FROM [Flujo Embarcaciones Libera]"
        rcd.Open strSelect, db1, adOpenStatic, adLockOptimistic
        
        For i = 0 To .Cols - 1
            .Key(-1, i) = rcd.Fields(i).Name
        Next i
                
        .Text(-1, 0) = "Embarcacion"
        .Text(-1, 1) = "Tipo"
        .Text(-1, 2) = "Confirmacion"
        .Text(-1, 3) = "Pax Asignados"
        .Text(-1, 4) = "Liberar"

        .Rows = rcd.RecordCount
        prgBar1.Max = .Rows
        prgBar1.Top = StatusBar1.Top + 45
        prgBar1.Visible = True
        j = 0
        Do While Not rcd.EOF
El siguiente procedimiento llena el registro que sigue, ver cdigo frmLiberaEmbarcaciones-populateRow.txt            
            populateRow (j)
            prgBar1.Value = j
            j = j + 1
            rcd.MoveNext
        Loop
        rcd.Close
        prgBar1.Visible = False
        StatusBar1.Panels(2).Text = .Rows & " embarcacion(es)"
        .Redraw = True
        .Visible = True
    End With ' SCGrid1
    Exit Sub
Terminar:
    MsgBox err.Description
    MsgBox err.Number
End Sub
