Using ctx As New NorthwindDataContext
	ctx.Log = New IO.StringWriter
 
	Dim qry = From p In ctx.Products _
	 Where p.Discontinued = False _
	 Group p By p.CategoryID, p.SupplierID _
	 Into _
	 SumPrice = Sum(p.UnitPrice) _
	 Select _
	 SumPrice, CategoryID, SupplierID, _
	 BlaBla = If(SumPrice > 50, "mehr als fünfzig", "weniger als fünfzig")
 
	Me.DataGridView1.DataSource = qry
 
	Debug.WriteLine(ctx.Log.ToString)
End Using

SELECT [t1].[value] AS [SumPrice], [t1].[CategoryID], [t1].[SupplierID], 
    (CASE 
        WHEN (COALESCE(
            (CASE 
                WHEN [t1].[value] > @p0 THEN 1
                WHEN NOT ([t1].[value] > @p0) THEN 0
                ELSE NULL
             END),@p1)) = 1 THEN CONVERT(NVarChar(19),@p2)
        ELSE @p3
     END) AS [BlaBla]
FROM (
    SELECT SUM([t0].[UnitPrice]) AS [value], [t0].[CategoryID], _
      [t0].[SupplierID]
    FROM [dbo].[Products] AS [t0]
    WHERE NOT ([t0].[Discontinued] = 1)
    GROUP BY [t0].[CategoryID], [t0].[SupplierID]
    ) AS [t1]
-- @p0: Input Decimal (Size = 0; Prec = 33; Scale = 4) [50]
-- @p1: Input Int (Size = 0; Prec = 0; Scale = 0) [0]
-- @p2: Input NVarChar (Size = 16; Prec = 0; Scale = 0) [mehr als fünfzig]
-- @p3: Input NVarChar (Size = 19; Prec = 0; Scale = 0) [weniger als fünfzig]
-- Context: SqlProvider(Sql2008) Model: AttributedMetaModel Build: _
  3.5.30729.4926