Dim maxPlayers = 2
Dim players = _
From customer In customers _
Where customer.Sports.Count > maxPlayers _
Select customer.Name
