下标越界，谁帮我看下

--------------------编程问答-------------------- 哪一句? --------------------编程问答-------------------- 应该要设置下MSFlexGrid的行数和列数把。。。 --------------------编程问答-------------------- 设置MSFlexGrid1的列数，
MSFlexGrid1.cols=4 --------------------编程问答--------------------
  MSFlexGrid1.Cols = mrc2.RecordCount + 1
'mrc2.RecordCount是记录集的个数吧，如果记录个数是1，那MSFlexGrid1.Cols=2，下标就越界了
改为：MSFlexGrid1.Cols =5

补充：VB ,  控件