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

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