Как создать отчет RDL C со связанными таблицами?

Question

Я пытаюсь создать отчет, в котором будет отображаться моя таблица, содержащая объединения из разных таблиц, которая выглядит следующим образом:

select * from tblproduct As p inner join tblbrand As b On p.bid = b.brandid inner Join tblclassification As c On p.cid = c.classid inner Join tblformulation As f On p.fid = f.formid inner Join tblgeneric As g On p.gid = g.genericid inner Join tbltype As t On p.tid = t.typeid

Моя таблица состоит из 8 столбцов, и 4 из них являются идентификаторами столбцов для присоединения, я могу успешно использовать запрос, когда я пытаюсь отобразить в datagridview, но когда я пытаюсь это сделать в Reportviewer, он не работает и выдает ошибку: "Object reference not sent to an instance of an object". Это то, что я пробовал,

Public Class frmInventoryReport

    Public Property strReport2 As String
    Private Sub frmInventoryReport_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.tblproductTableAdapter.Fill(Me.groceryDataSet.tblproduct)
        Me.ReportViewer1.RefreshReport()

        Dim rptDataSource As New ReportDataSource

        Try
            With Me.ReportViewer1.LocalReport
                .ReportPath = "D:\VisualBasic\EELPOS - Copy\EELPOS\Report3.rdlc"
                .DataSources.Clear()
            End With

            Select Case strReport2
                Case "Report3"

                    Dim i As Integer = 0
                    Dim sqlQuery As String = "select * from tblproduct As p inner join tblbrand As b On p.bid = b.brandid inner Join tblclassification As c On p.cid = c.classid inner Join tblformulation As f On p.fid = f.formid inner Join tblgeneric As g On p.gid = g.genericid inner Join tbltype As t On p.tid = t.typeid"
                    Dim da As New MySqlDataAdapter(sqlQuery, cn)
                    Dim dt As DataTable = New DataTable()
                    While dr.Read
                        dt.Rows.Add(i, dr.Item("barcode").ToString, dr.Item("generic").ToString, dr.Item("classification").ToString, dr.Item("type").ToString, dr.Item("formulation").ToString, dr.Item("price").ToString, dr.Item("qty").ToString)
                    End While
                    da.Fill(dt)

                    rptDataSource = New ReportDataSource("inventory", dt)

            End Select

            Me.ReportViewer1.LocalReport.DataSources.Add(rptDataSource)

        Catch ex As Exception
            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

        Me.ReportViewer1.RefreshReport()

    End Sub
End Class

Какой правильный способ сделать это?