VB入门：Recodeset问题，请大家指教

Question

有一个access数据库
里面有一个表如下：
number    value
1         10
1         20
2         30现在用number = 1rs.Open "select value FROM tableA WHERE number = " & number, cnn, adOpenKeyset, adOpenDynamic, adCmdTextdata = rs.Fields("value").Value这样可以读到第一行的value值 10 ，但是如果要读到第2行的value 20 应该怎么换行呢？

Answer 1

rs.Open "select value FROM tableA WHERE number = " & number, cnn, adOpenKeyset, adOpenDynamic, adCmdTextdata = rs.Fields("value").Value
rs.MoveNext '移动指针到下一条
If Not rs.Eof Then data=rs.Fields("value").value &

Answer 2

number = 1
rs.CursorLocation=adUseClient '设置客户端游标
rs.Open "select value FROM tableA WHERE number = " & number, cnn, adOpenKeyset, adOpenDynamic, adCmdTextdata = rs.Fields("value").Value
'把记录集里的vlues列的值赋给数组：
Dim retValue() As Long
ReDim retValue(rs.RecordCount-1)
rs.MoveFirst
While Not rs.Eof
    retValue=rs(0) '或写成：retValue=rs("value") 
    rs.MoveNext
Wend

Answer 3

用movenext语句就可以移动到下一记录

Answer 4

请问这句是有什么用啊~
rs.CursorLocation=adUseClient '设置客户端游标