Imports CrystalDecisions.CrystalReports.Engine
Dim ds as new Dataset
'Fill the dataset using Data adapter
Dim rep As New ReportDocument
rep.Load(Server.MapPath("CrystalReport1.rpt"))
rep.setDatasource(ds)
CrystalReportViewer1.ReportSource = rep
