Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DateTimePicker1.Format = DateTimePickerFormat.Custom
        DateTimePicker1.CustomFormat = "dd/MM/yyyy"
 
        DateTimePicker2.Format = DateTimePickerFormat.Custom
        DateTimePicker2.CustomFormat = "dd/MM/yyyy"
End Sub
 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
 
        TextBox4.Text = DateTimePicker1.Text
        TextBox5.Text = DateTimePicker2.Text
 
SQLstr = ("SELECT Feld1, Feld2, Feld3, Feld4, Termin FROM Tabelle1 WHERE (" & _
  "Termin BETWEEN #" & TextBox4.Text & "# And #" & TextBox5.Text & "#)")
 
            Mycn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data" & _
              "Source=" & sPfad & DbPw)
 
            Using cmd = New OleDbCommand(SQLstr, Mycn)
                Mycn.Open()
 
                Dim reader As OleDbDataReader = cmd.ExecuteReader()
                Dim dt = New DataTable
                dt.Load(reader)
 
                DataGridView1.DataSource = dt
                DataGridView1.Refresh()
                DataGridView1.ClearSelection()
                reader.Close()
                Mycn.Close()
            End Using
End Sub