ado数据绑定到flexgrid超出数据范围，如何解决？

直接使用下面的语句
Set MSHFlexGrid1.DataSource = rstLocalRS
来填充网格，确实只能填充2049行。
要超过2049行，请用循环语句填充，如
with mshflexgrid1
        While Not rst1.EOF
            '//增加序号
            .TextMatrix(i, 0) = i
            For j = 1 To .Cols - 1
                .TextMatrix(i, j) = rst1.Fields(j - 1).Value
            Next j
            DoEvents
            i = i + 1
            rst1.MoveNext
        Wend
end with