方法1通过split()函数：
dim Arr,Rs
Set Rs=Conn.Execute("select aa from abc")
Arr=""
Do While Not Rs.Eof
If Arr="" Then
Arr=Rs("aa")
Else
Arr=Arr&","&Rs("aa")
End If
Rs.Movenext
loop
Arr=split(Arr,",") 'arr即是你想要的数组
方法2，通过记录集的GetRows方法
‘可取多个字段
Set Rs=Conn.Execute("..........")
Arr=Rs.GetRows()
Rs.Close()
'操作Arr
'方法是Arr(Y,X)
'X可以理解成行
'Y就是列
'当只有一条记录时，X省掉Arr(Y)