Se ho capito bene vuoi creare una reazione fra 2 tabelle di un dataset, ecco come ho risolto io:

codice:
Dim Colonna1 as DataColumn 
Dim Colonna2 as DataColumn
Dim MyDR as DataRelation

Colonna1 = DS.Tables("MyTable1").Columns("ColonnaComuneAlle2Tabelle")
Colonna2 = DS.Tables("MyTable2").Columns("ColonnaComuneAlle2Tabelle")
MyDR = New DataRelation("MyRelation", Colonna1, Colonna2)
MyDataSet.Relations.Add(MyDR)

Dim Riga1, Riga2 As DataRow
Dim i as Integer
i = 0

For Each Riga1 In  MyDataSet.Tables("MyTable2").Rows
   Riga2 = Riga1.GetParentRow(MyDR)
   DS.Tables("MyTable12).Rows(i)("ColonnaX") = Riga2("ColonnaX")
   i = i + 1
Next Riga1