Hi Guys


I use the code below to search for employee , by using the employee number.

In the form I have only listview1 and text1 box for search.
Databse: dbemp
Recordset:rsemp


When I use this code I always get this message
Invalid property value , err 380

Any one can help please ?
Thank you in advance

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim x As ListItem
Set x = ListView1.FindItem("emp_number", lvAccounts, elvSearchText)
If (x Is Nothing) = False Then
Set lvAccounts.SelectedItem = x.Selected
End IfEnd Sub