0
Function searchByName(lName As String) As List(Of Employees)
Dim employees As New Employees
Dim employeeList As New List(Of Employees)
Dim resultList As New List(Of Employees)
employeeList = employees.getEmployeeObject
resultList = From employeesObj In employeeList
Where employeesObj.LastName = lName
Select employeesObj.EmployeeID
Return resultList
End Function
Попробуйте обертывание запроса в круглых скобках и добавление ToList ... 'resultList = (от ... Выбрать employeesObj.EmployeeID) .ToList()' – pinkfloydx33