Private Sub MakeDS()
Private myDataSet As DataSet
Dim myDataTable As DataTable = New DataTable("ParentTable")
Dim myDataColumn As DataColumn
Dim myDataRow As DataRow
myDataColumn = New DataColumn
myDataColumn.DataType = System.Type.GetType("System.Int32")
myDataColumn.ColumnName = "id"
myDataTable.Columns.Add(myDataColumn)
myDataColumn = New DataColumn
myDataColumn.DataType = System.Type.GetType("System.String")
myDataColumn.ColumnName = "ParentItem1"
myDataTable.Columns.Add(myDataColumn)
myDataColumn = New DataColumn
myDataColumn.DataType = System.Type.GetType("System.String")
myDataColumn.ColumnName = "ParentItem2"
myDataTable.Columns.Add(myDataColumn)
my