adodc中记录该如何指针的改变?

[kelvin_feng]

各位好:
我下面的代码是想把adodctemp的字段"内容"的内容全部列出来,但运行结果只把同一条记录列了几次,我知道这是记录的指针没有变,可以指教一下吗,分是少点,但我已经全给了.
Dim rs As adodb.Recordset
Dim i As Integer
Set rs = AdodcTemp.Recordset
For i = 0 To rs.RecordCount - 1

'这里应该加上记录指针改变的代码

RichTextEdit.Text = RichTextEdit.Text & Chr(13) & Chr(10) & i + 1 & ")" & " " & rs.Fields("内容") & Chr(13) & Chr(10)
Next i

[sduwjr]

rs.movenext