Вот код из Кирка, переведенный в синтаксис метода расширения VB10:
dim result = context.Countries.Single(Function(c) c.CountryName = "My Country").
Ligues.SelectMany(Function(ligue) ligue.Teams).
Select(Function(team) new with {team.Name, team.Score }).
Distinct()
Я полагаю (но я не уверен, что сейчас у вас нет доступа к компилятору VB), вы можете написать его так, как этот синтаксис запроса vb.net
(РЕДАКТИРОВАТЬ мою первоначальную пробную версию действительно было неверно, поэтому я исправил запрос ниже:)
dim result = From ligue in myCountry.Ligues
From team in ligue.Teams
Select team.Name, team.Score Distinct