Dim cusID As New ReportParameter("cus_id", SaveDataFixFrm.txtSDFCusID.Text)
Dim cusname As New ReportParameter("cus_name", SaveDataFixFrm.txtSDFcusname.Text)
Dim custel As New ReportParameter("cus_tel", SaveDataFixFrm.txtSDFcusTel.Text)
Dim cusaddress As New ReportParameter("cus_address", SaveDataFixFrm.txtSDFcusaddress.Text)
Dim DTsave As New ReportParameter("datetime", SaveDataFixFrm.DateTimePickerSDFadd.Text)
ReportViewer1.LocalReport.SetParameters(New ReportParameter() {cusID, cusname, cusaddress, custel, DTsave})
Me.ReportViewer1.RefreshReport()