adodb查询到100条记录后，想将ni_num关键字下的所有记录赋给数组,该如何解决
adodb查询到100条记录后，想将ni_num关键字下的所有记录赋给数组
问题：
通过adodb查询到100条记录后，想将ni_num关键字下的所有记录赋给数组。
不知如何实现，求代码
------解决方案--------------------
最基本的做法：
do while not rs.eof
a(i)=rs.fileds(0)
rs.movenext
loop
------解决方案--------------------
问题：
通过adodb查询到100条记录后，想将ni_num关键字下的所有记录赋给数组。
不知如何实现，求代码
- VB code
Private Sub GetFgSn()
On Error GoTo Errmsg
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = CreateObject("adodb.recordset")
conn.ConnectionString = "Driver={SQL Server};server=server;database=SuiviTest;uid=test;pwd=test"
conn.Open
rs.Open "SELECT * FROM dbo.detailMesure where pt_num = '253302739' order by mt_datedeb", conn, adOpenForwardOnly, adLockReadOnly
If Not (rs.BOF And rs.EOF) Then Debug.Print 2222222
Exit Sub
Errmsg:
Debug.Print 1111111
End Sub
------解决方案--------------------
最基本的做法：
do while not rs.eof
a(i)=rs.fileds(0)
rs.movenext
loop
------解决方案--------------------