方法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就是表格的列