Отчет отображает данные предыдущей даты а не новой выбранной даты

---

Private Sub BtnShowReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnShowReport.Click

        Dim cryRpt As New ReportDocument
        Dim dt As New DataTable
        Dim dr As OleDbDataReader
      
        Call connect()
        Dim C2_Qry As String
        C2_Qry = String.Empty
        C2_Qry = "select R_ID, R_date, OldBalance, R_Amount, CurrentBalance from receivings where R_date=@dt"
        comm.Parameters.AddWithValue("@dt", Date.Parse(Me.ReportDatePicker.Value).ToShortDateString)
        comm.Connection = conn
        comm.CommandType = CommandType.Text
        comm.CommandText = C2_Qry
        dr = comm.ExecuteReader
        dt.Load(dr)
        cryRpt.Load("E:\BFC\Last--BFCProject\BFCProject\CrystalReports\Roznamcha.rpt")
        cryRpt.SetDataSource(dt)
        RoznamchaCrystalReportViewer.ReportSource = cryRpt
        RoznamchaCrystalReportViewer.Refresh()
        dr.Close()

    End Sub

Что я уже пробовал:

у меня есть контроль ReportDatePicker на моей форме. с помощью этого элемента управления я изменяю свою дату, чтобы увидеть отчет в

RoznamchaCrystalReportViewer

.

Проблема в том, что когда я Меняю дату из ReportdatePicker control, мой отчет отображает данные предыдущей даты, которые я выбираю перед последней.

он не обновляет данные в представлении отчета.

Умоляю о помощи.

---