VB.net使用where Dates的condidition来打开Report

Question

我希望在表单中能够在Start_Date和End_Date之间选择报表过滤器的日期。

这是我到目前为止的代码。

Try
        Dim acc_App As Object
        acc_App = CreateObject("Access.Application")
        acc_App.OpenCurrentDatabase(programpath, True)
        Dim strCriteria As String
        strCriteria = "Start_Date >= #" & datePicker.Text &
    "# And End_Date < #" & DateTimePicker1.Text & "#"
        lblPrueba.Text = strCriteria
        acc_App.visible = True
        acc_App.DoCmd.OpenReport("HorasTrabajadas", 2, WhereCondition:=strCriteria)
    Catch Ex As Exception

        MessageBox.Show(Ex.Message)

    End Try
End Sub

我的问题是，即使从datetimepicker获取数据，它也会在打开报告时再次询问我的访问参数。 我需要一些帮助。感谢。