Private Sub populateRow(iRow As Integer)
Dim i As Integer
    With SCGrid1
        
        .Text(iRow, 0) = rcds![Folio]
        .Key(iRow, 0) = rcds![Folio]
        .Text(iRow, 1) = rcds![SubCanal]
        .Key(iRow, 1) = rcds![SubCanal]
        .Text(iRow, 2) = rcds![Actividad]
        .Key(iRow, 2) = rcds![Actividad]
        .Text(iRow, 3) = rcds![FechaMovto]
        .Key(iRow, 3) = rcds![FechaMovto]
        .Text(iRow, 4) = rcds![Cupon]
        .Key(iRow, 4) = rcds![Cupon]
        .Text(iRow, 5) = rcds![Tarifa]
        .Key(iRow, 5) = rcds![Tarifa]
        .Text(iRow, 6) = rcds![PaxAdulto]
        .Key(iRow, 6) = rcds![PaxAdulto]
        .Text(iRow, 7) = rcds![PaxMenor]
        .Key(iRow, 7) = rcds![PaxMenor]
        .Text(iRow, 8) = rcds![Importe]
        .Key(iRow, 8) = rcds![Importe]
        .Text(iRow, 9) = rcds![TipoCambio]
        .Key(iRow, 9) = rcds![TipoCambio]
        .Text(iRow, 10) = rcds![PorcentajeComision]
        .Key(iRow, 10) = rcds![PorcentajeComision]
        .Text(iRow, 11) = rcds![Facturar]
        .Key(iRow, 11) = rcds![Facturar]
        
        .TextAlignment(iRow, 4) = scTxtRight
        .TextAlignment(iRow, 5) = scTxtRight
        .TextAlignment(iRow, 6) = scTxtRight
        .TextAlignment(iRow, 7) = scTxtRight
        .TextAlignment(iRow, 8) = scTxtRight
        .TextAlignment(iRow, 9) = scTxtRight
        .TextAlignment(iRow, 10) = scTxtRight
        
        .CellPictureAlignment(iRow, -1) = scPicCenter + scPicVCenter
Aqui es donde se bloquean las celdas de la columna 1 a la 10
        .CellMode(iRow, 1) = scCellFixed
        .CellMode(iRow, 2) = scCellFixed
        .CellMode(iRow, 3) = scCellFixed
        .CellMode(iRow, 4) = scCellFixed
        .CellMode(iRow, 5) = scCellFixed
        .CellMode(iRow, 6) = scCellFixed
        .CellMode(iRow, 7) = scCellFixed
        .CellMode(iRow, 8) = scCellFixed
        .CellMode(iRow, 9) = scCellFixed
        .CellMode(iRow, 10) = scCellFixed
    End With ' SCGrid1

End Sub
