请问在VB中如何定义一个数组，并且将一个表的内容付给这个数组

做成个动态数组,在用MSHF的控件读出表格,在用这个控件的row(s)和col(s)属性来遍历表格中的每个值......

Set rs = conn.Execute("select * from cba ")
set MSHFlexGrid1.DataSource = rs
这时 MSHFlexGrid1表格中只显示第一条记录，请问该如何写？
谢谢。