如何显示下一条？（初学者）

Question

点击command1,   Dim conn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  On Error Resume Next
  s1 = InputBox("请输入如：00123", "查找", "00123")
  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ap.mdb; Persist Security Info=False;jet oledb:database password=456456"
  rs.Open "select * from fptabel where fptabel.wj='" + s1 + "'", conn
 Text5.Text = rs.Fields("ID")
 Text6.Text = rs.Fields("wj")
 Text7.Text = rs.Fields("vd1"
显示在文本框里，我想显示下一条，该如何办？

Answer 1

rs.movenext
 Text5.Text = rs.Fields("ID")
 Text6.Text = rs.Fields("wj")
 Text7.Text = rs.Fields("vd1"

Answer 2

UP
rs.movenext
...
if rs.eof then
rs.movelast
end if

Answer 3

yoki(小马哥) 
提示错误：
对象不能执行所需的操作！

Answer 4

UP
rs.movenext
...
是啥子意思？我很笨请指教！
在另一个按纽command2下，实现下一条的显示！

Answer 5

推荐看看MSDN里有关ADODC的部分内容，建议新手在做这样的操作时候，使用ADODC控件。
熟悉之后可使用其他方式实现。