'Erstellen einer neuen Beziehung
  dim dr as DataRelation = New DataRelation("BenutzerBuecher", _
     ds.Tables("Benutzer").Columns("BenutzerID"), _
     ds.Tables("Buecher").Columns("BenutzerID"))
  
  'Hinzufügen der Beziehung
  ds.Relations.Add(dr)