Unable to allocate memmory for flexgrid

[Kadirpatel]

Hi all,
I'm facing problem while displaying data in Flexgrid. The number of columns is 1 and I want to display 66392 rows in this flexgrid. But "Unable to allocate memmory for flexgrid" is thrown. Can any body let me know where I'm wrong. My code for the same is like this :

While Not rstAdoResultSet.EOF
    With grdTapeFileList
        .Rows = .Rows + 1
        .Row = .Rows - 1
                
        strError = IIf(IsNull(rstAdoResultSet.Fields("error_message").Value), "", rstAdoResultSet.Fields("error_message").Value)
                
        .TextMatrix(.Row, 0) = strError
     End With
     rstAdoResultSet.MoveNext
Wend

Thanks