'Datum Filter
    Private Sub fill_Stoer_Datum()
        'dt1 = Datatable
        Dim minDatum = (From drv In dt1 Where drv.RowState <> _
          DataRowState.Deleted Select drv.Eintrag).Min
        Dim maxDatum = (From drv In dt1 Where drv.RowState <> _
        DataRowState.Deleted Select drv.Eintrag).Max
 
        If minDatum < dtp_Stoerung_Datum_von.MinDate Then
            dtp_Stoerung_Datum_von.MinDate = minDatum : _
              dtp_Stoerung_Datum_bis.MinDate = minDatum
        End If
        If maxDatum > dtp_Stoerung_Datum_bis.MaxDate Then
            dtp_Stoerung_Datum_von.MaxDate = maxDatum : _
              dtp_Stoerung_Datum_bis.MaxDate = maxDatum
        End If
 
        With dtp_Stoerung_Datum_von
            .MinDate = minDatum : .MaxDate = maxDatum : .Value = minDatum
        End With
 
        With dtp_Stoerung_Datum_bis
            .MinDate = minDatum : .MaxDate = maxDatum : .Value = maxDatum
        End With
    End Sub
    Private Sub dtp_Stoerung_ValueChanged(sender As Object, e As EventArgs) _
      Handles dtp_Stoerung_Datum_von.ValueChanged, _
      dtp_Stoerung_Datum_bis.ValueChanged
        If gbx_Störungen_Datumfilter.Enabled = False Then Return
 
        Dim lst_Datum As New List(Of Date) From {dtp_Stoerung_Datum_von.Value, _
          dtp_Stoerung_Datum_bis.Value}
        check_Stoer_Datum(lst_Datum)
 
        Dim col_Datum = dt1.Rows("Eintrag").ToString
        BindingSource.Filter = String.Format("[{0}] >= '{1}' AND [{0}] <=" & _
          "'{2}'", col_Datum, dtp_Stoerung_Datum_von.Value, _
          dtp_Stoerung_Datum_bis.Value)
    End Sub
    Private Sub check_Stoer_Datum(ByVal lst_Datum As List(Of Date))
        'Wenn Von-Datum > Bis-Datum Dann...
        dtp_Stoerung_Datum_von.Value = lst_Datum.Min
        dtp_Stoerung_Datum_bis.Value = lst_Datum.Max
    End Sub

Dim max as Object = dt1.Compute("MAX(Eintrag)", "")
Dim min as Object = dt1.Compute("MIN(Eintrag)", "")

EALA FREYA FRESENA

   Dim _Beginn As New DateTime(Kalender.SelectionStart.Year, _
     Kalender.SelectionStart.Month, Kalender.SelectionStart.Day, 0, 0, 0, 0)
        Dim _Ende As New DateTime(Kalender.SelectionEnd.Year, _
        Kalender.SelectionEnd.Month, Kalender.SelectionEnd.Day, 23, 59, 59, 900)

  _Detail_filter = String.Format("[{0}] >= '{1}' AND [{0}] <= '{2}'", _
    "Eintrag", _Beginn, _Ende) 
            BindingSource.Filter = _Detail_filter