or
| Dim mainDataSource As New DataSet |
| Dim rptHeader As New DataTable("rptHeader") |
| Dim rptDetail As New DataTable("rptDetail") |
| Dim rptFooter As New DataTable("rptFooter") |
| mainDataSource.Tables.Add(rptHeader) |
| mainDataSource.Tables.Add(rptDetail) |
| mainDataSource.Tables.Add(rptFooter) |
| Dim sampleReport As New MySampleReport |
| sampleReport.DataSource = mainDataSource |