[vb.net] เออเร่อ crystalreport เกี่ยวกับการส่ง date time picker อะครับ

    Public Function getDateBet(ByVal dt1 As String, ByVal dt2 As String) As String
        Dim dtm As String = ""
        dtm = dtm & "{tbl_borrow.date_borrow} >= '" & dt1 & "' and   {tbl_borrow.date_borrow} <= '" & dt2 & "' "
        Return dtm
    End Function

  Private Sub frm_CrysrepAddborrow_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim rpt As New ReportDocument()
        Dim directory As String = My.Application.Info.DirectoryPath
        rpt.Load("C:\Users\ASUS\Desktop\test_sqlserver\test_sqlserver\Rep_AddborrowAll.rpt")

        Dim dateBet As String = ""
        dateBet = getDateBet(dt1, dt2)

        rpt.RecordSelectionFormula = dateBet
      
        CrystalReportViewer1.ReportSource = rpt
        CrystalReportViewer1.Refresh()
    End Sub

   Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
'' เอาค่าจาก date time picker ตัวที่ 1 และ 2
        Dim dt1 As String = dtm_1.Value.ToString("yyyy-MM-dd")
        Dim dt2 As String = dtm_2.Value.ToString("yyyy-MM-dd")
        frm_CrysrepAddborrow.getDateBet(dt1, dt2)
        frm_CrysrepAddborrow.ShowDialog()
end sub