Dim rptView As ReportViewer = New ReportViewer()
rptView.ProcessingMode = ProcessingMode.Local
Dim report As LocalReport = rptView.LocalReport
report.ReportPath = "Report1.rdlc"
'Code to load your dataset
'...
Me.rptView.LocalReport.DataSources.Add(New Microsoft.Reporting.WebForms.ReportDataSource("DataSourceName", ds.Tables(0)))