Dynamic Bind DataSet to ReportViewer

Hi everyone,

Currently I'm trying to bind dataset to reportviewer by code. But getting following error:-

• A data source instance has not been supplied for the data source 'DataSet1'.

I'm using VB. It is highly appreciated if anyone can provide some guidance to me. Following is my code:-

ProtectedSub Page_Load(ByVal sender AsObject,ByVal e As System.EventArgs)HandlesMe.Load

Dim selectSQL AsString

selectSQL = "SELECT DISTINCT(branch) from Sales WHERE branch = '01' and SalesDate = '2013-01-01'"

Dim conn AsNewSqlConnection(ConnectionString)

Dim cmd AsNewSqlCommand(selectSQL, conn)

Dim adapter AsNewSqlDataAdapter(cmd)

Dim ds AsNewDataSet()

Try

conn.Open()

adapter.Fill(ds, "DataTable1")

Me.ReportViewer1.Reset()

Me.ReportViewer1.LocalReport.ReportPath = Server.MapPath("Report1.rdlc")

ReportViewer1.LocalReport.DataSources.Add(NewReportDataSource("DataSet1_DataTable1", ds.Tables("DataTable1")))

Me.ReportViewer1.DataBind()

Me.ReportViewer1.LocalReport.Refresh()

Catch ex AsException

Label1.Text = Err.ToString

Finally

conn.Close()
End

Try

End

Sub

Thank you in advance!!