Listing B
' Add relations between tables. The Nested property ensures
' that the equivalent XML will nest child rows inside of
' parent rows
ds.Relations.Add("EmployeeOrders", _
 ds.Tables("Employees").Columns("EmployeeID"), _
 ds.Tables("Orders").Columns("EmployeeID"))
ds.Relations("EmployeeOrders").Nested = True
ds.Relations.Add("OrdersDetail", _
  ds.Tables("Orders").Columns("OrderID"), _
   ds.Tables("OrderDetails").Columns("OrderID"))
ds.Relations("OrdersDetail").Nested = True