dim relation as datarelation = ds.Relations.Add("Verbindung", ds.Tables( _
  "Gerätehersteller").id, ds.Tables("Geräte").id)

dim gerHersteller as datarow = dt1.Rows("hersteller")
dim geraete as datarow
for each geraete in gerHersteller.GetChildRows(relation)
'auflisten...
next

'---------------------------------------------'
ich weiss, dass ich nichts weiss

immerSuchender