关于rdlc 报表

通过控件制作报表后，带不出数据。代码如下：
   Dim rptDataSource As New ReportDataSource
        Dim dt As New DataTable
        rptDataSource.Name = "aa"
        rptDataSource.Value = dt

        ReportViewer1.LocalReport.ReportEmbeddedResource = "Report.Report2.rdlc"
        ReportViewer1.LocalReport.DataSources.Clear()
        ReportViewer1.LocalReport.DataSources.Add(rptDataSource)
        Me.ReportViewer1.RefreshReport()
请大侠指点，谢谢！