Dim query = From TestTable In TestTable.AsEnumerable() _
                        Join TestTable1 In TestTable1.AsEnumerable() _
                             On TestTable.Field(Of String)("Spalte1") Equals _
                                TestTable1.Field(Of String)("Spalte1")) _
                        Where TestTable1.Field(Of Nullable(Of Boolean))( _
                        "Aktiv") = True And _
                              (TestTable.Field(Of Nullable(Of DateTime))( _
                              "Datum1") <= DateAdd(DateInterval.Day, _
                              VORWARNZEIT, Now.Date) Or _
                              (TestTable.Field(Of Nullable(Of DateTime))( _
                              "Spalte2") <= DateAdd(DateInterval.Day, _
                              VORWARNZEIT, Now.Date)))
                        Order By TestTable.Field(Of Date)("Spalte1")
            Select New With _

Der Weg ist weit und steinig .. (