如何让按钮实现“下一条”的功能

Question

如题：
 
        如何让一个按钮实现“下一条”的功能！！Private Sub Command1_Click()    If rs.RecordCount > 1 Then
        If rs.BOF = False Then rs.MovePrevious
            If rs.BOF = True Then rs.MoveFirst
               rs.MoveNext
            Text1.Text = rs.Fields(2).Value
    End IfEnd SubPrivate Sub Form_Load()
Call OpenCn
Call openRs("select * from weijiance")
Text1.Text = rs.Fields(2).Value
End Sub上边是小弟写的代码，想让Command1按钮实现“下一条”的功能，直到记录尾！可是代码只能实现从第一条到第二条，然后再点击按钮，Text1.Text值没有变化！代码有什么错误，请高手帮忙！！！

Answer 1

If rs.BOF = False Then rs.MovePrevious 
If rs.BOF = True Then rs.MoveFirst 
都有问题

Answer 2

50分哦没注意
If rs.BOF = False Then rs.MovePrevious ’记录不在开头 回到上一条 你说有错吗？
If rs.BOF = True Then rs.MoveFirst    '记录不在开头 跳到第一条 有错吗？If rs.EOF or rs.BOF Then rs.MoveFirst   改这一句Ok