如何新建一个DataSet,并且插入相应的数据

 'init 0 to 23 ingition percent
        Dim table As DataTable = New DataTable("Table")
        Dim column As DataColumn
        Dim row As DataRow
        column = New DataColumn()
        column.DataType = System.Type.GetType("System.DateTime")
        column.ColumnName = "hour"
        column.ReadOnly = True
        table.Columns.Add(column)
        column = New DataColumn()
        column.DataType = System.Type.GetType("System.Int32")
        column.ColumnName = "percent"
        column.ReadOnly = False
        table.Columns.Add(column)
        Me.DS.Tables.Add(table)
        For i As Integer = 0 To 23
            row = table.NewRow()
            row("hour") = DateAdd("h", i, "1900-1-1 00:00:00")
            row("percent") = 0
            table.Rows.Add(row)
        Next
        Me.DS.AcceptChanges()