Microsoft ReportにDataSetの値を入れて、表示したい。

Visual Basic 2015
Windows Forms アプリをターゲットフレームワーク .NET Framework 4.5 で作っています.DataSetの作成で「プロジェクト」 - 「新しい項目の追加」よりデータセットを選択して、DataSet1.xsdを作成してTable1を作りました。

Table1
Key1 :int
Key2：int
str:string
val1:int
val2:int

上記のようにテーブルを作りました。

MicrosoftReportを使い、ReportViewerに上記DataSetの値をいれて表示させたいのですが、値の表示ができないです。

Visual
1Imports Microsoft.Reporting.WinForms
2
3Public Class Form1
4
5    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
6        Dim dt As DataSet1 = New DataSet1
7        Dim row As DataSet1.DataTable1Row = CType(dt.DataTable1.NewRow(), DataSet1.DataTable1Row)
8
9        row.BeginEdit()
10
11        '値をセット
12        row.key1 = 1
13        row.key2 = 1
14        row.str = "ひらてすと"
15        row.val1 = 100
16        row.val2 = 200
17        row.EndEdit()
18        dt.DataTable1.Rows.Add(row)
19
20        Dim rdc As LocalReport = Me.ReportViewer1.LocalReport
21        rdc.ReportPath = "ディレクトリ\Report1.rdlc"
22        Me.ReportViewer1.ProcessingMode = ProcessingMode.Local
23
24        rdc.DataSources.Clear()
25        Dim rs As ReportDataSource = New ReportDataSource()
26        rs.Name = "DataSet1"
27        rs.Value = dt.DataTable1
28
29
30        Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
31        Me.ReportViewer1.RefreshReport()
32End Sub