Private Sub displayList()
    Dim i, j As Integer
Dim strSelect As String
Dim mntliq As Single
    
    DoEvents
    With SCGrid1
        .Visible = False
        .Redraw = False
	El origen del contenido para el Grid es la tabla Flujo Embarcaciones
Temporal que se lleno en el cdigo frmPagoTour-cdmAbridDetalledePago.txt, segn la cantidad de pasajeros
        strSelect = "select * from [Flujo Embarcaciones Temporal]"
        
        rcds.Open strSelect, db, adOpenStatic, adLockOptimistic
        For i = 0 To .Cols - 1
            '.Text(-1, I) = rcds.Fields(I).Name
            .Key(-1, i) = rcds.Fields(i).Name
        Next i
        
        .Text(-1, 0) = "Consecutivo"
        .Text(-1, 1) = "Cod Guia"
        .Text(-1, 2) = "Nombre Guia"
        .Text(-1, 3) = "Embarcacion"
        .Text(-1, 4) = "Tipo"
        .Text(-1, 5) = "Pax Libres"
        .Text(-1, 6) = "Pax A Asignar"
                
        .Rows = rcds.RecordCount
        prgBar1.Max = .Rows
        prgBar1.Top = StatusBar1.Top + 45
        prgBar1.Visible = True
        j = 0
        Do While Not rcds.EOF
Se llena la fila actual, ver cdigo frmAsignarEmbarcaciones-populateRow.txt.
                       populateRow (j)
           prgBar1.Value = j
            j = j + 1
            rcds.MoveNext
        Loop
        rcds.Close
          prgBar1.Visible = False
          StatusBar1.Panels(2).Text = .Rows & " embarcacion(es)"
        
        .Redraw = True
        .Visible = True
            End With ' SCGrid1
End Sub
