VB.net ส่งค่า Parameter ไปแสดงใน Crystal Report ไมไ่ด้แต่กลับขึ้นเป็นหน้า Enter Parameter Value

 Private Sub Reporting(PushBillNumber As String)
        Dim rpt As New ReportDocument
        Dim directory As String = My.Application.Info.DirectoryPath
        Dim SQL As String
        Dim dt As DataTable
        'dtgProduct.Rows(dtgProduct.CurrentCellAddress.Y).Cells("Product_name").Value
        SQL = "SELECT PushBill.PB_id, PushBill.PB_customer, Customer.customer_name, Customer.customer_address, Customer.customer_tel_num, PushBill.PB_date, PushBill.PB_employee, PushBill.PB_memo, PushBill_Detail.Sales_Credit_id, PushBill_Detail.Sales_Credit_date, PushBill_Detail.Sales_Credit_Value, PushBill_Detail.Date_Quantity, PushBill_Detail.Interest_value, PushBill_Detail.PB_desc" &
        " FROM((Customer INNER JOIN PushBill ON Customer.customer_id = PushBill.PB_customer) INNER JOIN employee On PushBill.PB_employee = employee.emp_id) INNER JOIN PushBill_Detail On PushBill.PB_id = PushBill_Detail.PB_id" &
        " WHERE PushBill.PB_id='" & PushBillNumber & "'"
        dt = exeSQL(SQL)
        rpt.Load(Machine.Image_path & "\Report\RptPushBill.rpt")
        Company_name = "TEST Company_name"
        Company_address = "TEST Company_address"
        Company_Telnum = "TEST Company_Telnum"
        Company_Tax_id = "TEST Company_Tax_id"
        rpt.SetParameterValue("Company_name", Company_name)
        rpt.SetParameterValue("Company_address", Company_address)
        rpt.SetParameterValue("Company_telnum", Company_Telnum)
        rpt.SetParameterValue("Company_Tax_id", Company_Tax_id)
        rpt.Database.Tables(0).SetDataSource(dt)
        Me.CrystalReportViewer1.ReportSource = rpt
        Me.CrystalReportViewer1.Refresh()
        rpt.Refresh()
        'CrystalReportViewer1.PrintReport()
    End Sub