Dim strSQL As String
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter(strSQL, conn)
 
        conn.Open()
        'strSQL = "Select * from tbl_Stunden where Datum=" & Kalender.TodayDate 
        ' & ""
        strSQL = "Select * from tbl_Stunden where Datum='" & Kalender.TodayDate _
          & "'"
        'strSQL = "Select * from tbl_Stunden where Datum  = '" & CDate( _
        Kalender.TodayDate) & "'"
 
        da.Fill(dt)
 
        dgvStunden.DataSource = dt