Estimadxs, buen día, tengo un dilema que no termino de cerrar. Estoy cargando Un `MSHFlexGrid` en `VB6` con `StoredProcedure` hecho en `SQLServer`, hasta ahí va todo bien
El problema es que a la hora de cargarlo, es como que entra en un `LOOP` interminable y sale el cartel de índice fuera de intervalo. Adjunto el código así alguien me dice a dónde le estoy pifiando en mi código: 

    Private Sub Form_Load()
        SP_GrillaEndosos
    End Sub
    
    Private Sub Grilla()
        Dim I As Integer
        
        FlexEndosos.Cols = 11
        FlexEndosos.Rows = RS!RS_Count + 2
        'FlexEndosos.Rows = RS.RecordCount + 2
        FlexEndosos.MergeCells = flexMergeFree
        FlexEndosos.FixedRows = 2
        '--------------------------1ºFILA - MERGEFREE-------------
        FlexEndosos.TextMatrix(0, 0) = ""
        FlexEndosos.TextMatrix(0, 1) = "CÓDIGO PLANES"
        FlexEndosos.TextMatrix(0, 2) = "CÓDIGO PLANES"
        FlexEndosos.TextMatrix(0, 3) = "PLAN ENDOSO"
        FlexEndosos.TextMatrix(0, 4) = "PLAN ENDOSO"
        FlexEndosos.TextMatrix(0, 5) = "CUOTAS GENERADAS"
        FlexEndosos.TextMatrix(0, 6) = "CUOTAS GENERADAS"
        FlexEndosos.TextMatrix(0, 7) = "CUOTAS GENERADAS"
        FlexEndosos.TextMatrix(0, 8) = "ENDOSO"
        FlexEndosos.TextMatrix(0, 9) = "ENDOSO"
        FlexEndosos.TextMatrix(0, 10) = "ENDOSO"
        '------------------------------------------------------
        FlexEndosos.ColWidth(0) = 800
        FlexEndosos.ColAlignment(0) = 4
        FlexEndosos.TextMatrix(1, 0) = "ENDOSO"
        '------------------------------------------------------
        FlexEndosos.ColWidth(1) = 1000
        FlexEndosos.ColAlignment(1) = 4
        FlexEndosos.TextMatrix(1, 1) = "ORIGEN"
        '------------------------------------------------------
        FlexEndosos.ColWidth(2) = 1000
        FlexEndosos.ColAlignment(2) = 4
        FlexEndosos.TextMatrix(1, 2) = "DESTINO"
        '------------------------------------------------------
        FlexEndosos.ColWidth(3) = 1200
        FlexEndosos.ColAlignment(3) = 4
        FlexEndosos.TextMatrix(1, 3) = "V.NOMINAL"
        '------------------------------------------------------
        FlexEndosos.ColWidth(4) = 1100
        FlexEndosos.ColAlignment(4) = 4
        FlexEndosos.TextMatrix(1, 4) = "$ CUOTA"
        '------------------------------------------------------
        FlexEndosos.ColWidth(5) = 1000
        FlexEndosos.ColAlignment(5) = 4
        FlexEndosos.TextMatrix(1, 5) = "CANTIDAD"
        '------------------------------------------------------
        FlexEndosos.ColWidth(6) = 1000
        FlexEndosos.ColAlignment(6) = 4
        FlexEndosos.TextMatrix(1, 6) = "DESDE Nº"
        '------------------------------------------------------
        FlexEndosos.ColWidth(7) = 1000
        FlexEndosos.ColAlignment(7) = 4
        FlexEndosos.TextMatrix(1, 7) = "HASTA Nº"
        '------------------------------------------------------
        FlexEndosos.ColWidth(8) = 2400
        FlexEndosos.ColAlignment(8) = 4
        FlexEndosos.TextMatrix(1, 8) = "TIPO"
        '------------------------------------------------------
        FlexEndosos.ColWidth(9) = 1200
        FlexEndosos.ColAlignment(9) = 4
        FlexEndosos.TextMatrix(1, 9) = "FECHA"
        '------------------------------------------------------
        FlexEndosos.ColWidth(10) = 1200
        FlexEndosos.ColAlignment(10) = 4
        FlexEndosos.TextMatrix(1, 10) = "USUARIO"
        '------------------------------------------------------
        FlexEndosos.MergeRow(0) = True
        FlexEndosos.MergeCol(10) = True
        
        '------------------------CENTRO LAS COLUMNAS FIJAS---------------------
        For I = 0 To FlexEndosos.Cols - 1
          FlexEndosos.FixedAlignment(I) = 4
        Next I
    End Sub
    
    Private Sub CargarGrillaEndosos()
        Dim I As Integer
        
        I = 1
        RS.MoveFirst
        Do While RS.EOF = False
            I = I + 1
            If RS!Tipo = "A" Then
                FlexEndosos.Rows = RS!RS_Count + 3
                FlexEndosos.TextMatrix(I, 0) = RS!Endoso
                FlexEndosos.TextMatrix(I, 1) = RS!PlanOrigen
                FlexEndosos.TextMatrix(I, 2) = RS!PlanDestino
                FlexEndosos.TextMatrix(I, 3) = Format(RS!ValorNominal, "##,##")
                FlexEndosos.TextMatrix(I, 4) = Format(RS!ImporteComprobante, "##,##0.00")
                FlexEndosos.TextMatrix(I, 5) = 0
                FlexEndosos.TextMatrix(I, 6) = 0
                FlexEndosos.TextMatrix(I, 7) = 0
                FlexEndosos.TextMatrix(I, 8) = RS!Modulo
                FlexEndosos.TextMatrix(I, 9) = Format$(RS!FechaHecho, "dd/MM/yyyy")
                FlexEndosos.TextMatrix(I, 10) = RS!Usuario
            Else
                FlexEndosos.TextMatrix(I, 0) = RS!Endoso
                FlexEndosos.TextMatrix(I, 1) = RS!PlanOrigen
                FlexEndosos.TextMatrix(I, 2) = RS!PlanDestino
                FlexEndosos.TextMatrix(I, 3) = Format(RS!ValorNominal, "##,##")
                FlexEndosos.TextMatrix(I, 4) = Format(RS!ImporteComprobante, "##,##0.00")
                FlexEndosos.TextMatrix(I, 5) = RS!cantidad
                FlexEndosos.TextMatrix(I, 6) = RS!CuotaImpresaMin
                FlexEndosos.TextMatrix(I, 7) = RS!CuotaImpresaMax
                FlexEndosos.TextMatrix(I, 8) = RS!Modulo
                FlexEndosos.TextMatrix(I, 9) = Format$(RS!FechaHecho, "dd/MM/yyyy")
                FlexEndosos.TextMatrix(I, 10) = RS!Usuario
            End If
            RS.MoveNext
        Loop
        'FlexEndosos.Rows = FlexEndosos.Rows - 1
    End Sub
    
    Private Sub SP_GrillaEndosos()
        Dim CmdSQL As ADODB.Command
        Set CmdSQL = New ADODB.Command
        CmdSQL.ActiveConnection = Cn
        CmdSQL.CommandType = adCmdStoredProc
        
        ActivarRS
        
        CmdSQL.CommandText = "SP_GrillaEndosos"
        CmdSQL.Parameters("@titulo") = CLng(lblTitulo.Caption)
        Set RS = CmdSQL.Execute
        Set CmdSQL = Nothing
        
        
        Grilla
    
        CargarGrillaEndosos
        Rs.Close
    End Sub

    Private Sub ActivarRS()
        Set RS = New Recordset
        RS.CursorLocation = adUseServer
    End Sub

Datos a tener en cuenta, en la línea: 

    FlexEndosos.Rows = RS!RS_Count + 2

Utilizo un valor dentro de la consulta, por ejemplo ese valor es que hay ocho registros entonces `RS_Count` vale 8 ya que si uso `RecordCount` este me devuelve -1

El Stored devuelve un select de una tabla temporal: 

[![introducir la descripción de la imagen aquí][1]][1]

Al usar MoveFirst, sale el siguiente error: 

[![introducir la descripción de la imagen aquí][2]][2]


  [1]: https://i.sstatic.net/TdCel.png
  [2]: https://i.sstatic.net/aMGKE.png