求助access“查询下一项”的代码

窗体上有一个按钮和两个文本框，点击按钮查询表1中“成绩”大于60的“姓名”，将姓名和成绩同时显示在窗体上的两个文本框里；按钮点击一次，执行一次查询程序，文本框里的内容显示下一个成绩大于60的姓名，求大侠帮我修改一下代码，谢谢

我编写的代码只能显示第一个等于60的姓名，不能实现一个一个向下查询的效果，代码如下

Private Sub Command9_Click()

Dim my_db As Database
Dim my_tb As Recordset
Set my_db = CurrentDb
Set my_tb = my_db.OpenRecordset("表1", dbOpenDynaset)
my_tb.FindNext "[成绩]=" + "'" + "60" + "'"      '条件是一个SQL语句
If my_tb.NoMatch Then
MsgBox ("没有该记录")
  
Else                      '以下输入框均指"编辑与删除功能："区域的输入框
    Text1.Value = my_tb.Fields(1)  

    Text3.Value = my_tb.Fields(2)
End If

End Sub