Ecco come ho risolto:

codice:
	Dim MyColX, MyColY as DataColumn
	Dim MyRel as DataRelation
	Dim i as Integer
	Dim MyRow, MyRowRel as DataRow
        Dim DS as DataSet

'Crea la relazione
	MyColX = DS.Tables("Tabella1").Columns("Id")
	MyColY = DS.Tables("Tabella2").Columns("Id")
	MyRel = New DataRelation("MiaRelazione", MyColX, MyColY)
	DS.Relations.Add(MyRel)

	i = 0

	For Each MyRow in DS.Tables("Tabella2").Rows
	MyRowRel = MyRow.GetParentRow(MyRel)
	DS.Tables("Tabella1").Rows(i)("CampoX") = MyRowRel("CampoX")
	i = i + 1
	Next
Se esiste qualcosa di più semplice....