date1 = CDate(dat1)
        date7 = CDate(dat7)
        str = "SELECT * FROM Auftrag Where a_liefertermin >= " & date1 & "" & _
          "And a_liefertermin < " & date7 & ""
        adp = New OleDb.OleDbDataAdapter(str, cn)
        If cn.State = ConnectionState.Open Then
            cn.Close()
        End If
        cn.Open()
        Try
            adp = New OleDb.OleDbDataAdapter(str, cn)
            adp.SelectCommand.Parameters.Add("p1", OleDbType.Date).Value = _
              CDate(date1)
            adp.SelectCommand.Parameters.Add("p2", OleDbType.Date).Value = _
            CDate(date7)
            adp.Fill(ds, "sel_auftrag")
        Catch ex As OleDb.OleDbException
            MessageBox.Show(ex.ToString)
        Finally
        End Try