Using dbContext As New EntitiesModel()
Dim countries As IQueryable(Of String) = From customer In dbContext.Customers
Select customer.Country
Dim distinctCountries As IQueryable(Of String) = countries.Distinct()
For Each country As String In distinctCountries
Console.WriteLine(country)
Next country
End Using