Dim tabkopf As New DataTable
        Dim tabpos As New DataTable
        Dim dataset1 As New DataSet
 
        tabkopf = New DataTable("Kopf")
        tabpos = New DataTable("Pos")
 
        Dim colItem As DataColumn = New DataColumn
        colItem.DataType = System.Type.GetType("System.Int32")
        colItem.ColumnName = "Nummer"
        tabkopf.Columns.Add(colItem)
 
        Dim colitem1 As DataColumn = New DataColumn
        colitem1.DataType = System.Type.GetType("System.Int32")
        colitem1.ColumnName = "KopfNr"
        tabpos.Columns.Add(colitem1)
 
        dataset1.Tables.Add(tabkopf)
        dataset1.Tables.Add(tabpos)
 
        Dim parentCol As DataColumn
        Dim childCol As DataColumn
        ' Code to get the DataSet not shown here.
        parentCol = dataset1.Tables("Kopf").Columns("Nummer")
        childCol = dataset1.Tables("Pos").Columns("KopfNr")
 
        Dim relCustOrder As DataRelation
 
        relCustOrder = New DataRelation("K-A", parentCol, childCol)
        dataset1.Relations.Add(relCustOrder)
 
        relCustOrder.DataSet.Relations.Remove(relCustOrder)
        dataset1.Tables.Remove("Kopf")