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: 

    Option Explicit
    Dim RS As Recordset
    Dim IntRecord As Integer
    
    Private Sub Form_Load()
        LblApeNom.Caption = FrmModSolNuevo.LblApellido.Caption & ", " & FrmModSolNuevo.LblNombre.Caption
        LblTitulo.Caption = FrmModSolNuevo.LblTitulo.Caption
        '..................................
        SP_GrillaEndosos
    End Sub


    Private Sub Grilla()
        Dim I As Integer
        
        FlexEndosos.Cols = 11
        FlexEndosos.Rows = IntRecord + 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
        IntRecord = RS!Rs_Count
        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.Rows = RS!Rs_Count + 3
                FlexEndosos.TextMatrix(I, 0) = RS!PlanOrigen
                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.Close
            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
        
        
        CargarGrillaEndosos
        
        Grilla
    End Sub
    
    Private Sub ActivarRS()
        Set RS = New Recordset
        RS.CursorLocation = adUseServer
    End Sub
    
    Private Sub CmdSalir_Click()
        Unload Me
    End Sub

El Stored devuelve un select de una tabla temporal: 

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

Si en Private Sub SP_GrillaEndosos() posiciono

    CargarGrillaEndosos
    Grilla

Esto solo me carga el valor de la primer columna (de 0 a 7 - lo cual son datos correcto), al debugear me doy cuenta de que si trae datos pero luego borra todo por hacer el diseño luego de cargar los items. 

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

Si en Private Sub SP_GrillaEndosos() posiciono

    Grilla
    CargarGrillaEndosos

MoveFirst, trae el siguiente error: 

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

Gif de lo que sucede: 

[LINK][4]


  [1]: https://i.sstatic.net/TdCel.png
  [2]: https://i.sstatic.net/o6S3u.png
  [3]: https://i.sstatic.net/aMGKE.png
  [4]: https://drive.google.com/file/d/1750OIik5wnWKtUQl61rnyTeRkJcyGMV2/view?usp=drive_link