在线等待！

[sun99413]

怎么把数据库一个字段放入一个数组里？
代码怎么写？
谢谢了

[sx1123]

Dim intI
Dim arr(rs.recordCount)
For intI=0 To rs.recordCount-1
arr(intI)=rs("id")
If intI<rs.recordCount Then
rs.MoveNext
End If
Next