vb2008: using LinQ

I have now set up a console app to test this piece of code using Northwind as follows:-
Imports System.Data.LinqModule Module1
Sub Main() Dim db As New NorthWindDataContext
Dim Emps = From Employee In db.Employees _ Select Employee
Debug.Print(Emps.Count)
For Each emp In Emps

Console.WriteLine("Code={0}, Name={1}", emp.EmployeeID, emp.FirstName) Next
Console.ReadLine() End Sub
End Module