rdlc报表数据不显示？

ReportViewer不连接数据库，自定义DataSet导出到报表时，只显示标题，数据未显示
实在查不出什么原因，应该是一个很小的地方出错，恳请大神指导，万分感谢

参照：https://www.cnblogs.com/bfyx/archive/2012/12/17/2821264.html

报表中数据集和数据源设定

代码

 Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dt As DataTable
        dt = New DataTable
        dt.Columns.Add("row1", GetType(String))
        dt.Columns.Add("row2", GetType(String))
        Dim i As Integer
        For i = 0 To i < 6
            Dim dr As DataRow
            dr = dt.NewRow
            dr(0) = "a"
            dr(1) = "b"
            dt.Rows.Add(dr)
        Next
        ReportViewer1.LocalReport.ReportPath = "Report1.rdlc"
        '//指定数据集,数据集名称后为表,不是DataSet类型的数据集
        Me.ReportViewer1.LocalReport.DataSources.Clear()
        Me.ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("message", dt))
        Me.ReportViewer1.RefreshReport()
    End Sub
End Class