数组赋值问题..先谢!!

[TaoTaoYou]

在A字段里有5条符合条件的记录,,我把它读取出来以后怎么直接赋值给一个数组...谢谢

最好一维 和二维的各给一个例子,小弟感激中....谢谢

[jzywh]

dim StrResult,ArrResult
StrResult = ""
do until rs.eof
StrResult = StrResult & rs(0) & "|||"
rs.movenext
loop

StrResult = left(StrResult,len(StrResult)-3)
ArrResult = split(StrResult,"|||")