Private CustomersBindingSource As BindingSource
 
    Private Sub CustomerDetails_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.CustomersBindingSource = Form1.CustomersBindingSource
        Me.CustomerIDTextBox.DataBindings.Add("Text", _
          Me.CustomersBindingSource, "CustomerID")
        Me.CompanyNameTextBox.DataBindings.Add("Text", _
        Me.CustomersBindingSource, "CompanyName")
        Me.ContactNameTextBox.DataBindings.Add("Text", _
        Me.CustomersBindingSource, "ContactName")
        ' usw...
    End Sub

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