Using ctx As New NorthwindDataContext
			ctx.Log = New IO.StringWriter
			Dim qry = From c In ctx.Customers _
			 Select New With {.Id = c.CustomerID, .Deutsch = CBool(IIf(c.Country = _
"Germany", True, False))}
			Me.DataGridView1.DataSource = qry
 
			Debug.WriteLine(ctx.Log.ToString)
		End Using

SELECT [t0].[CustomerID] AS [Id], 
    (CASE 
        WHEN [t0].[Country] = @p0 THEN 1
        WHEN NOT ([t0].[Country] = @p0) THEN 0
        ELSE NULL
     END) AS [Deutsch]
FROM [dbo].[Customers] AS [t0]
-- @p0: Input NVarChar (Size = 7; Prec = 0; Scale = 0) [Germany]