Dim res = (From rechnungen In loc_ds.Tables("Rechnungen").AsEnumerable()
          Where  Where umwandler(rechnungen.Field(Of Nullable(Of Decimal))( _
            "Zahlung1"), rechnungen.Field(Of Nullable(Of Decimal))("Zahlung2"), _
            rechnungen.Field(Of Decimal)("Rechnungsbetrag")) = True)
          Select New Class_rechnung With
                        {.Rechnungsbetrag = rechnungen.Field(Of Decimal)( _
                          "Rechnungsbetrag")}).ToList
 
	Return res

 Public Shared Function umwandler(ByVal Zahlung1 As Nullable(Of Decimal), ByVal _
   Zahlung2 As Nullable(Of Decimal), ByVal Rechnungsbetrag As Decimal) As _
   Boolean
        If Zahlung1 Is Nothing Then
            Zahlung1 = 0
            If Zahlung2 Is Nothing Then
                Zahlung2 = 0
                If Zahlung1.Value + Zahlung2.Value < Rechnungsbetrag Then
                    Return True
                End If
            Else
                If Zahlung1.Value + Zahlung2.Value < Rechnungsbetrag Then
                    Return True
                Else
                    Return False
                End If
            End If
            Return False
        Else
            If Zahlung2 Is Nothing Then
                Zahlung2 = 0
                If Zahlung1.Value + Zahlung2.Value < Rechnungsbetrag Then
                    Return True
                Else
                    Return False
                End If
            Else
                If Zahlung1.Value + Zahlung2.Value < Rechnungsbetrag Then
                    Return True
                Else
                    Return False
                End If
            End If
        End If
        Return False
     End Function