I have created a very simple data entry form. Inside this form I have a <find> button and a data component. I received this error message whenever the find button is clicked.

Run time error "3251"
Operation is not supportd for this type of operation


private sub cmdFind_click()
SearchStr$ = "123456"
Data1.Recordset.Index = "EmpID"
Data1.Recordset.Seek "=", Searchstr$

If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
End If

end sub


Regards