Dim von_Datum = Today.AddDays(-5)
 
        Dim Abfrage = From Eintrag In BS_Eingang_Liste
                      Where Eintrag.RowState <> DataRowState.Deleted AndAlso _
                        Eintrag.IsBestelldatumNull = False AndAlso _
                            Eintrag.Bestelldatum < von_Datum _
        Select Eintrag