アクセス時にエラー91を解決する方法

Question

検索ボタンでこのコードを実行したときにこのエラーが発生しました。以下は私のコードです。ありがとうございました。

あなたがレコードセットを維持する必要があり

Option Compare Database 
    Option Explicit 

    Private Sub txtsearch_Click() 

     If IsNull(Searchbar) = False Then 

      Me.Recordset.FindFirst "[PONumber]=" & Searchbar 

      Me!Searchbar = Null 

      If Me.Recordset.NoMatch Then 

        MsgBox "No record found", vbOKOnly + vbInformation, "Sorry" 

        Me!Searchbar = Null 

      End If 

     End If 

    End Sub 

Answer 1

：

Private Sub txtsearch_Click() 

    Dim rs As DAO.Recordset 

    If IsNull(Me!Searchbar.Value) = False Then 
     Set rs = Me.RecordsetClone 
     rs.FindFirst "[PONumber]=" & Me!Searchbar.Value 
     If rs.NoMatch Then 
      MsgBox "No record found", vbOKOnly + vbInformation, "Sorry" 
     Else 
      Me.Bookmark = rs.Bookmark 
     End If 
     Me!Searchbar.Value = Null 
    End If 

    Set rs = Nothing 

End Sub