acess用vb做程序的时候 怎么把一列（字段）的值一起付给一个数组呢？

Question

用循环movenext在一个一个的存我做了，但是感觉很慢。 
用sql语句有做过的吗？ 我一列有2w个数据。感觉要2秒左右时间一个循环才做完，想有没有别的快的办法

Answer 1

    dim var,arr
    dim sql as string
    dim cn as connection
    dim rs as recordset
    '.......
    sql="select Fld from tb" 
    set rs=cn.execute(sql)
    var=rs.getstring
    arr=split(var,chr(13))  '这样就到数组中了
    debug.? join(arr,vbcrlf)