Dim conn As New OleDbConnection(connStr)
        Dim da As New OleDbDataAdapter(sqlstr, conn)
        Dim ds As New DataSet
        conn.Open()
        da.Fill(ds, "KDKontakt")
        conn.Close()
        DataGrid1.SetDataBinding(ds, "KDKontakt")
 
With Me
 
 
 
            .TextBox3.DataBindings.Clear()
            .TextBox3.DataBindings.Add("Text", dv, "Besuchstermin").toString(D)
 
End With

Dim d1 As DateTime = Convert.ToDateTime(TextBox1.Text)
Dim d2 As DateTime = Convert.ToDateTime(TextBox2.Text)
 
 da.SelectCommand.Parameters.Add("@Anfangsdatum", OleDbType.DBDate).Value = _
   Convert.ToDateTime(TextBox1.Text)
      da.SelectCommand.Parameters.Add("@Enddatum", OleDbType.DBDate).Value = _
      Convert.ToDateTime(TextBox2.Text)

  Dim sqlstr As String = "SELECT  * FROM KDKontakt " & _
           "WHERE Besuchstermin BETWEEN DateValue ('" & TextBox1.Text & "') and" & _
           "DateValue('" & TextBox2.Text & "')"