Public Class Form3
    Inherits System.Windows.Forms.Form
    Private CustomersDataGridView As New DataGridView()
    Private CustomersBindingSource As New BindingSource()
    Private OrdersDataGridView As New DataGridView()
    Private OrdersBindingSource As New BindingSource()
    Private DetailsDataGridView As New DataGridView()
    Private DetailsBindingSource As New BindingSource()
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'Me.OrdersTableAdapter.Fill(Me.NWDS.Orders)
        'Me.CustomersTableAdapter.Fill(Me.NWDS.Customers)
        'Me.Order_DetailsTableAdapter.Fill(Me.NWDS.Order_Details)
        Try
 
            '' Create a DataSet.
            'Dim nwds As DataSet
            'Dim data As New DataSet()
 
            '' Add data from the Customers table to the DataSet.
            'Dim CustomersDataAdapter As New SqlDataAdapter("select * from" & _
              "Customers", connection)
            'Dim customersDataAdapter As Common.DataAdapter
            CustomersTableAdapter.Fill(Me.NWDS.Customers)
 
            '' Add data from the Orders table to the DataSet.
            'Dim OrdersDataAdapter As New SqlDataAdapter("select * from" & _
              "Orders", connection)
            OrdersTableAdapter.Fill(Me.NWDS.Orders)
 
            '' Add data from the Orders table to the DataSet.
            'Dim DetailsDataAdapter As New SqlDataAdapter("select * from [Order" & _
              "Details]", connection)
            Order_DetailsTableAdapter.Fill(Me.NWDS.Order_Details)
 
            ' Establish a relationship between the two tables Customer-Orders.
            Dim relCustOrd As New DataRelation("relCustOrd", _
            Me.NWDS.Tables("Customers").Columns("CustomerID"), _
            Me.NWDS.Tables("Orders").Columns("CustomerID"))
'AB HIER KLEMMT'S - 
            Me.NWDS.Relations.Add(relCustOrd)
            ' Bind the Customers data connector to the Customers table.
            CustomersBindingSource.DataSource = Me.NWDS
            CustomersBindingSource.DataMember = "Customers"
            ' Bind the Orders data connector to the Customers data connector,
            ' using the DataRelation name to filter the information in the 
            ' Orders table based on the current row in the Customers table. 
            OrdersBindingSource.DataSource = CustomersBindingSource
            OrdersBindingSource.DataMember = "relCustOrd"
 
            ' Establish a relationship between the two tables 
            ' Order-OrderDetails.
            Dim relOrdDet As New DataRelation("relOrdDet", _
            Me.NWDS.Tables("Orders").Columns("OrderID"), _
            Me.NWDS.Tables("OrderDetails").Columns("OrderID"))
            Me.NWDS.Relations.Add(relOrdDet)
            ' Bind the Orders data connector to the Details table.
            DetailsBindingSource.DataSource = Me.NWDS
            DetailsBindingSource.DataMember = "Orders"
            ' Bind the Orders data connector to the Details data connector,
            ' using the DataRelation name to filter the information in the 
            ' Orders table based on the current row in the Customers table. 
            DetailsBindingSource.DataSource = OrdersBindingSource
            DetailsBindingSource.DataMember = "relOrdDet"