使用DataGrid控件显示 3000行 128列数据，读取单元格内数据时 速度慢到无法接受，读取一列大约要30秒，请问有什么优化的方法没？

附：读取数据代码：
Dim IntI As Double
Dim IntJ As Double

For IntI = 1 To 128
    For IntJ = 1 To 3111
        DataGrid1.Bookmark = IntJ
        CoordY(IntI, IntJ) = DataGrid1.Columns(IntI).CellText(DataGrid1.Bookmark)
    Next IntJ
Next IntI