Private Sub PrintChildRelationRows()
   ' Declare variable to hold the row values.
   Dim strRowVals As String
   Dim myDataSet As DataSet
   ' Get the DataSet of a DataGrid that is displaying data of at least two
   ' tables.
   Dim myTable As DataTable = CType(DataGrid1.DataSource, DataTable)
   ' Navigate using the Relations.
   Dim myRel As DataRelation
   Dim row As DataRow
   Dim col As DataColumn
   ' Print the names of each column in each table through the Relations.
   For Each myRel In myDataSet.Relations
      For Each col in myRel.ChildTable.Columns
          strRowVals &= col.ColumnName & " "
      Next
    Next
    ' Display results.
    Console.WriteLine(strRowVals)
   End Sub