Visual Basic - Problema con FlexGrid

tengo un FlexGrid que me arroja el siguiente error cuando en la 2da vuelta del ciclo para vaciar un recordset en el grid solo añade una sola fila pero cuando va para la 2da muestra el error:

Run-time error '381':
Subscript out of range

el codigo que estoy usuando es:

Do Until Rsdoc.EOF = True

c = c + 1

If IsNull(Rsdoc!CODORDENT) = False Then
Me.MSFlexGrid2.TextMatrix(c, 5) = Rsdoc!CODORDENT
end if

Rsdoc.MoveNext

Loop

creo q no as enviado el codigo completo, ya q no veo donde asignas la cantidad de filas y columnas del flex
'Asignamos el numero de Filas y columnas
TuFlexGrid.Rows = TuRecordset.RecordCount + 1 'una fila extra para las cabeceras
TuFlexGrid.Cols = TuRecordset.Fields.Count

por lo general ese error se da cuando quieres acceder a una fila o columna q no existe