Dim tab1 As DataTable = Me.Nwind2000DataSet.Customers
        Dim tab2 As DataTable = Me.Nwind2000DataSet.Orders
        Dim tab3 As DataTable = Me.Nwind2000DataSet.Order_Details
 
        Dim drel As DataRelation
 
        drel = New DataRelation("CustomersOrders", tab1.Columns("CustomerID"), _
          tab2.Columns("CustomerID"))
        Me.Nwind2000DataSet.Relations.Add(drel)
 
        drel = New DataRelation("OrdersOrder_Details", tab2.Columns("OrderID"), _
          tab3.Columns("OrderID"))
        Me.Nwind2000DataSet.Relations.Add(drel)

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov