' Create the ObjectContext.
Dim context As ObjectContext = _
New ObjectContext("name=AdventureWorksEntities")
' Set the DefaultContainerName for the ObjectContext.
context.DefaultContainerName = "AdventureWorksEntities"
Dim query As ObjectQuery(Of Product) = _
New ObjectQuery(Of Product)("Product", context)
' Iterate through the collection of Products.
Dim result As Product
For Each result In query
Console.WriteLine("Product Name: {0}", result.Name)
Next