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![CPago]
        .Key(iRow, 1) = rcds![CPago]
        .Text(iRow, 2) = rcds![FPago]
        .Key(iRow, 2) = rcds![FPago]
        .Text(iRow, 3) = rcds![Cupon]
        .Key(iRow, 3) = rcds![Cupon]
        .Text(iRow, 4) = rcds![Tarifa]
        .Key(iRow, 4) = rcds![Tarifa]
        .Text(iRow, 5) = rcds![PaxAdulto]
        .Key(iRow, 5) = rcds![PaxAdulto]
        .Text(iRow, 6) = rcds![PaxMenor]
        .Key(iRow, 6) = rcds![PaxMenor]
        .Text(iRow, 7) = rcds![Importe]
        .Key(iRow, 7) = rcds![Importe]
        .Text(iRow, 8) = rcds![TipoCambio]
        .Key(iRow, 8) = rcds![TipoCambio]
        .Text(iRow, 9) = rcds![PorcentajeComision]
        .Key(iRow, 9) = rcds![PorcentajeComision]
        .TextAlignment(iRow, 4) = scTxtRight
        .TextAlignment(iRow, 5) = scTxtRight
        .TextAlignment(iRow, 6) = scTxtRight
        .TextAlignment(iRow, 7) = scTxtRight
        .TextAlignment(iRow, 8) = scTxtRight
        .TextAlignment(iRow, 9) = scTxtRight
        .CellPictureAlignment(iRow, -1) = scPicCenter + scPicVCenter
    End With ' SCGrid1
End Sub
