Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim crystalReport As New ReportDocument()
crystalReport.Load(Server.MapPath("~/CrystalReportDetailedMaster.rpt"))
Dim dsCustomers As AccumulatedDset = GetData()//get data bind the report
crystalReport.SetDataSource(dsCustomers)
crystalReport.SetDatabaseLogon("admin", "72.249.151.40", "planrbmedb2", "hg@3vdf43")
CrystalReportViewer1.ReportSource = crystalReport