ต้องการแสดงข้อมูลแต่ละวัน สัปดาห์ และเดือน ผ่าน crystal report รบกวนขอคำแนะนำด้วยค่ะ

Private Sub PrintReserveDayToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintReserveDayToolStripMenuItem.Click

        Today = FormatDateTime(Now(), vbLongDate)

        connectionString = "Data Source=NAN-PC\SQLEXPRESS; Initial Catalog=Info_Reserve; Integrated Security=True "

        connection = New SqlConnection(connectionString)

        strAdd = "SELECT * FROM Info_All WHERE Reserve_Day = '" & Today & "' "

        Dim dscmd As New SqlDataAdapter(strAdd, connection)
        Dim ds As New DataSet
        dscmd.Fill(ds, "Info_All")

        Dim SummaryReport As New Summary
        SummaryReport.SetDataSource(ds.Tables("Info_All"))
        Summary_Preview.CrystalReportViewer2.ReportSource = SummaryReport
        Summary_Preview.CrystalReportViewer2.Show()
        Summary_Preview.CrystalReportViewer2.Refresh()
        Summary_Preview.ShowDialog()

        connection.Close()

    End Sub