rdlc code based DataSource

rdlc code based DataSource?
Skip_Frog
Okay I have the below code.

Dim da As SqlDataAdapter
Dim ds As DataSet
da = New SqlDataAdapter("Select Distinct [OP Number] from MasterShimSel", frmMain.sConn)
ds = New DataSet("Test")
da.Fill(ds, "Test")
Dim dsname As String = "ds"
Dim rs As New Microsoft.Reporting.WinForms.ReportDataSource(dsname, ds.Tables(0))
Me.ReportViewer1.LocalReport.DataSources.Add(rs)

http://www.windows-tech.info/15/8d7972f9bf31e44d.php http://www.windows-tech.info/