方法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就是表格的列
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024