'Erzeugen eines neuen DataSet und Hinzufügen von DataTable- und 
' DataColumn-Objekten.
Dim ds As New DataSet()
...
 
'Erzeugen von Arrays, die auf die DataColumn-Objekte verweisen,
'auf denen wir die neue DataRelation aufbauen.
Dim colsParent, colsChild As DataColumn()
With ds.Tables("ParentTable")
    colsParent = New DataColumn() {.Columns("ParentColumn1"), _
                                   .Columns("ParentColumn2")}
End With
With ds.Tables("ChildTable")
    colsChild = New DataColumn() {.Columns("ChildColumn1"), _
                                  .Columns("ChildColumn2")}
End With
 
'Hinzufügen der neuen DataRelation.
Dim rel As DataRelation
rel = New DataRelation("MultipleColumns", colsParent, colsChild)
ds.Relations.Add(rel)