Private Sub populateRow(iRow As Integer)
Dim i As Integer

    With SCGrid1
        
        .Text(iRow, 0) = rcd![Embarcacion]
        .Key(iRow, 0) = rcd![Embarcacion]
        .Text(iRow, 1) = rcd![TipoEmbarcacion]
        .Key(iRow, 1) = rcd![TipoEmbarcacion]
        .Text(iRow, 2) = rcd![NConfirmacion]
        .Key(iRow, 2) = rcd![NConfirmacion]
        .Text(iRow, 3) = rcd![PaxAsignados]
        .Key(iRow, 3) = rcd![PaxAsignados]
        .Text(iRow, 4) = rcd![Libera]
        .Key(iRow, 4) = rcd![Libera]
        .TextAlignment(iRow, 0) = scTxtRight
        .TextAlignment(iRow, 3) = scTxtRight
        
Las columnas 1 a 4, no se pueden modificar
        .CellPictureAlignment(iRow, -1) = scPicCenter + scPicVCenter
        .CellMode(iRow, 0) = scCellFixed
        .CellMode(iRow, 1) = scCellFixed
        .CellMode(iRow, 2) = scCellFixed
        .CellMode(iRow, 3) = scCellFixed
        
    End With ' SCGrid1
End Sub
