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