type mismatch problem Help!!!!!!!!!

[THEAF]

hi,
i'm creating a search button. When i click the button an input box shows up where i then enter the name of the employee and the result is show on a list box. Im using vb 6 and access.

my form load

Private Sub Form_Load()
'
Set GR_Database = OpenDatabase(App.Path & "\GR_database.mdb")
Set rsEmployee = GR_Database.OpenRecordset("Employee", dbOpenDynaset)
 
If Not rsEmployee.EOF Then rsEmployee.MoveFirst
 
Do While Not rsEmployee.EOF
    lstEmployee.AddItem rsEmployee!Firstname & vbTab & vbTab & rsEmployee!EmployeeNo
    lstEmployee.ItemData(lstEmployee.NewIndex) = rsEmployee!EmployeeNo
    rsEmployee.MoveNext
Loop
End Sub

the problem i get is a type mismatch on the firstline in my listbox
My Listbox

Private Sub lstEmployee2_Click()
 
rsEmployee.FindFirst "EmployeeNo=" & Str(Split(lstEmployee2.List(lstEmployee2.ListIndex), vbTab)(0))
 
    txtEmployeeNo.Text = rsEmployee!EmployeeNo
    txtFirstName.Text = rsEmployee!Firstname
    txtSurname.Text = rsEmployee!Surname
    'i cut the rest out
End Sub

And this is my search button

Private Sub CmdSearch_Click()
 
Set GR_Database = OpenDatabase(App.Path & "\GR_database.mdb")
    Set rsEmployee = GR_Database.OpenRecordset("Employee", dbOpenDynaset)
Dim Name As String
 
Name = InputBox("Please insert name", "Name") 'Enter the name to search for
 
If Not rsEmployee.EOF Then rsEmployee.MoveFirst
Call cmdClear_Click
lstEmployee2.Clear
Do While Not rsEmployee.EOF
    If LCase(rsEmployee!Firstname) = LCase(Name) Then
    lstEmployee2.AddItem rsEmployee!Firstname & " " & rsEmployee!Surname
        End If
       rsEmployee.MoveNext
Loop
End Sub

i don't know why i get this problem on rsEmployee.FindFirst "EmployeeNo=" & Str(Split(lstEmployee2.List(lstEmployee2.ListIndex ), vbTab)(0))
i used the same code on a similar project and it worked well, this piece of code was form a friend so i don't really know how it works.

PLEASE HELP!!!!

[debasisdas]

That is because you are passing a string to a number filed in the database for search.