Private Class WrapperClass
		Public Sub New(ByVal ParamArray params As Object())
			If params.Length >= 1 Then Me.Para01 = CInt(params(0))
			If params.Length >= 2 Then Me.Para02 = CDate(params(1))
                        ... usw. ...
		End Sub
 
		Private _para01 As Integer
		Public Property Para01() As Integer
			Get
				Return _para01
			End Get
			Set(ByVal value As Integer)
				_para01 = value
			End Set
		End Property
 
		Private _para02 As DateTime
		Public Property Para02() As DateTime
			Get
				Return _para02
			End Get
			Set(ByVal value As DateTime)
				_para02 = value
			End Set
		End Property
	End Class

Dim RecipeQuery = _
  From recipes In db.tblRecipes _
  Where recipes.ID = RecipeID _
  Select New WrapperClass(recipes.Para01)

Dim RecipeQuery = _
  From recipes In db.tblRecipes _
  Where recipes.ID = RecipeID _
  Select New WrapperClass(recipes.Para01, recipes.Para02)