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

    With SCGrid1
        .Text(iRow, 0) = rcds![Consecutivo]
        .Key(iRow, 0) = rcds![Consecutivo]
        .Text(iRow, 1) = rcds![CodGuia]
        .Key(iRow, 1) = rcds![CodGuia]
        .Text(iRow, 2) = rcds![NombreGuia]
        .Key(iRow, 2) = rcds![NombreGuia]
        .Text(iRow, 3) = rcds![NumEmbarcacion]
        .Key(iRow, 3) = rcds![NumEmbarcacion]
        .Text(iRow, 4) = rcds![TipoEmbarcacion]
        .Key(iRow, 4) = rcds![TipoEmbarcacion]
        .Text(iRow, 5) = rcds![PaxLibres]
        .Key(iRow, 5) = rcds![PaxLibres]
        .Text(iRow, 6) = rcds![PaxAAsignar]
        .Key(iRow, 6) = rcds![PaxAAsignar]
        
        .CellPictureAlignment(iRow, -1) = scPicCenter + scPicVCenter
        
        .TextAlignment(iRow, 3) = scTxtRight
        .TextAlignment(iRow, 5) = scTxtRight
        .TextAlignment(iRow, 6) = scTxtRight
        
        .CellMode(iRow, 1) = scCellFixed
        .CellMode(iRow, 2) = scCellFixed
        .CellMode(iRow, 3) = scCellFixed
        .CellMode(iRow, 4) = scCellFixed
        .CellMode(iRow, 5) = scCellFixed
    End With ' SCGrid1
End Sub
