Søg med inputbox

Hej.

Hvorfor virker flg. ikke?

Private Sub Find_report_Click()
Dim Find

Me.fld_serialnumber.SetFocus

Find = InputBox("Search on serial number", "Find Report")

Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[fld_serialnumber] = " & Str(Nz([Find], 0))
   
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
   
End Sub