Private Sub ConfigureReports(ByVal sDate As String, ByVal eDate As String)
        Dim query As String = ""
        Dim VerkaufslogReports As New ReportDocument
        Dim reportPath As String = My.Application.Info.DirectoryPath & _
          "\Verkaufslog.rpt"
 
        VerkaufslogReports.Load(reportPath)
        Dim myDataSet As smartshopDataSet = New smartshopDataSet
        If sDate = "0" Then
            query = "SELECT" & _
              "artikelname,artikelanzahl,artikelpreis_netto,artikelpreis_brutt" & _
              ",aufschlag,gesamtpreis,verkaufsdatum FROM verkaufslog"
        Else
            query = "SELECT" & _
              "artikelname,artikelanzahl,artikelpreis_netto,artikelpreis_brutt" & _
              ",aufschlag,gesamtpreis,verkaufsdatum FROM verkaufslog Where" & _
              "verkaufsdatum>=#" & sDate & "# AND verkaufsdatum<=#" & eDate _
              & "#  Order by verkaufsdatum"
        End If
        Dim myOleDbDataAdapter As OleDbDataAdapter = New OleDbDataAdapter( _
          query, conn)
        myOleDbDataAdapter.Fill(myDataSet, VerkaufslogDB)
 
        VerkaufslogReports.SetDataSource(myDataSet)
        myCrystalReportViewer.ReportSource = VerkaufslogReports
    End Sub