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

El problema que tienes es que el FlexGrid no tiene las suficientes filas, para insertar el numero de registros que te arroja la consulta...Debes insertar en el grid tantas filas..con la propiedad Rows