Where with a function
Imports System.Collections.Generic Imports System.Linq Imports System.Runtime.CompilerServices Public Class Role Public ID As Integer Public RoleDescription As String End Class Public Class Person Public ID As Integer Public IDRole As Integer Public LastName As String Public FirstName As String End Class Module Module1 Sub Main() Dim people As New List(Of Person)(New Person() { _ New Person With {.ID = 1, .IDRole = 1, .LastName = "A", .FirstName = "Brad"}, _ New Person With {.ID = 2, .IDRole = 2, .LastName = "G", .FirstName = "Tom"} _ }) Dim roles As New List(Of Role)(New Role() { _ New Role With {.ID = 1, .RoleDescription = "Manager"}, _ New Role With {.ID = 2, .RoleDescription = "Developer"} _ }) Dim query = people.Where(AddressOf F) End Sub Function F(ByVal people As Person) As Boolean Return people.ID = 1 End Function End Module