Dim myDataSet as new DataSet
Dim myDataTable As DataTable = new DataTable("ParentTable")
Dim myDataColumn As DataColumn 
 
'Spalte erstellen
myDataColumn = New DataColumn()
myDataColumn.DataType = System.Type.GetType("System.Int32")
myDataColumn.ColumnName = "id"
myDataTable.Columns.Add(myDataColumn)
 
'DataTable an DS übergeben
myDataSet.Tables.Add(myDataTable)
 
'Neue Zeile
Dim myDataRow As DataRow
myDataRow = myDataTable.NewRow()
myDataRow("id") = 100
myDataTable.Rows.Add(myDataRow)
 
'Alles nach XML zum Test
Dim filename As String = "myXml.xml"
Dim myFileStream As New System.IO.FileStream(filename, _
  System.IO.FileMode.Create)
Dim myXmlWriter As New System.Xml.XmlTextWriter(myFileStream, _
System.Text.Encoding.Unicode)
 
myDataSet.WriteXml(myXmlWriter)
myXmlWriter.Close() 'Daten fertig geschrieben