Dim SuchText As String = "02-12-2016"
 con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data" & _
   "Source=DATA_DB.accdb"
 
 con.Open()
 
 Dim ds As New DataSet
 Dim dt As New DataTable
 
 Dim da As New OleDbDataAdapter
 
 ds.Tables.Add(dt)
 
 da = New OleDbDataAdapter("select * from stunden WHERE [DATUM]= " & CDate( _
   SuchText).ToString("#dd/MM/yyyy#").Replace(".", "/") & " order by DOKNR" & _
   "DESC", con)
 
 da.Fill(dt)
 
 DataGridView1.DataSource = dt.DefaultView
 
 con.Close()