Dim reportDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
reportDoc.FileName = Server.MapPath("Report.rpt")
reportDoc.SetDataSource(ARReportResults) 'บรรทัดนี้ไม่รู้คืออะไร
reportDoc.SetParameterValue("Department", dll1.SelectedValue)
reportDoc.SetParameterValue("AsOfDate", asOfDate) 'บรรทัดนี้ก็ไม่รู้คืออะไรเหมือนกัน