Maybe this will help,
Code:
Dim ds As New WaterTablesDataSet
Dim ta As New WaterTablesDataSetTableAdapters.GroupLotsForUsersTableAdapter
ta.Fill(ds.GroupLotsForUsers)
Me.ReportViewer1.LocalReport.ReportPath = "c:\aquadatatest\aquadatavb2010\report1.rdlc"
Me.ReportViewer1.LocalReport.DataSources.Clear()
Dim sReportDataSource As ReportDataSource
sReportDataSource = New ReportDataSource()
sReportDataSource.Name = "DataSet1"
sReportDataSource.Value = ds.GroupLotsForUsers
ReportViewer1.LocalReport.DataSources.Add(sReportDataSource)
Me.ReportViewer1.RefreshReport()
WaterTablesDataSet is the dataset that I use for all my data access and reporting in my application.
DataSet1 is the name I used when I was initially designing the report and I had set WaterTablesDataset as its datasource.