求助主窗体中记录查找定位按钮VBA代码如何编写

Private Sub 查找_Click()
    If Not IsNull(Me.姓名查找) Then
        If InStr(1, Nz(Me.姓名), Nz(Me.姓名查找)) > 0 Then
            Me.Recordset.FindNext "姓名 Like '*" & Me.姓名查找 & "*'"
        Else
            Me.Recordset.FindFirst "姓名 Like '*" & Me.姓名查找 & "*'"
        End If
    End If
End Sub
点击下载此附件

也可以分开两个按钮，查找第一个和下一个。