vb2005中怎么将sql查询得到的数据存入数组

vb2005中如何将sql查询得到的数据存入数组?
vb2005中如何将sql查询得到的数据存入数组?谢谢~提供下思路也好
'************************************
类似下面vb6代码的功能,可惜我不会vb6

Dim   RS   As   ADODB.Recordset
Dim   CONN   As   ADODB.Connection
Set   CONN   =   CreateObject( "ADODB.Connection ")

CONN.Open   "PUBS "
sql   =   "select   *   from   authors "
Set   RS   =   CONN.Execute(sql)

MsgBox   RS.GetString(,   10)
RS.MoveFirst

这个例程连接SQL   Server   PUBS数据库,将所有的作者名字提取进一个记录集中,然后将

它的最开始的10行拉直变成一个字符串.
'************************************

------解决方案--------------------
Dim conn as new SqlConnection( "Data Source=xxxxx;Initial Catalog=pubs;User ID=xxxx;Password=xxxxx ")
Dim com As New SqlCommand( "select au_lname from authors ", conn)
Dim mydata As New DataSet
Dim ada As New SqlDataAdapter
If conn.State = ConnectionState.Closed Then conn.Open()
ada.SelectCommand = com
ada.Fill(mydata, ( "test "))
conn.Close()
Dim total As Int32 = mydata.Tables( "test ").Rows.Count
ReDim pub_name(total)
Dim i As Int32
For i = 0 To total - 1
pub_name(i) = mydata.Tables( "test ").Rows(i).Item(0)
Next

方法比较笨，但能得到你要的效果
嘿嘿
------解决方案--------------------
如果只需要名字
用reader效率应该高点
while(reader.Read())
{
Arraylist.add(....)
}