Dim ReportDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument
ReportDocument.Load(Server.MapPath("CrystalReport.rpt"))
ReportDocument.SetDatabaseLogon("", "", "ali", "payroll")
CrystalReportViewer1.ReportSource = ReportDocument
CrystalReportViewer1.Visible = True