
Error Number # -2147217825
I have a simple search procedure, by name or by ID. It works fine when I do
the search my name, but I get the above error number when I try to search by
ID. Here is my code in the txtSearch_Change sub:
xSeek = txtSearch.Text + "*"
If optOrder(0).Value = True Then ' Search by EmployeeID
xSeek = "Employeeid like '" & xSeek & "'"
End If
If optOrder(1).Value = True Then ' Search by LastName
xSeek = "LastName like '" & xSeek & "'"
End If
Adodc2.Recordset.Find xSeek, 0, adSearchForward
Help please!
Thank you,
Phuong