en tu código ya tienes declarao el parent y el child..??
si no.. te paso un ejemplo esperand que te pueda servir:
Dim dr As DataRelation
Dim parentCol As DataColumn
Dim childCol As DataColumn
parentCol = ds.Tables("rol_padre").Columns("rol_padre")
childCol = ds.Tables("rol_hijo").Columns("rol_hijo")
dr = New DataRelation("hijo_padre", parentCol, childCol)
ds.Relations.Add(dr)
saludos