Private Sub Foo()
        'THE PURPOSE OF THIS SUB IS BIND ONE DATASOURCE TO TWO DIFFERENT WINDOWS COMPONENTS
        'THE SECRET IS TO USE THE New Windows.Forms.BindingContext COMMAND

        'CREATE A DATATABLE THAT WILL HOLD THE NAMES OF ALL 50 US STATES
        Dim objDT As New Data.DataTable
        objDT = GetAll50States() 'THE QUERY THAT TAKES A LONG TIME TO EXECUTE

        'Fill ShipFrom Combo
        cmbShipFrom.BindingContext = New Windows.Forms.BindingContext
        cmbShipFrom.DataSource = objDT
        cmbShipFrom.DisplayMember = "FullName"
        cmbShipFrom.ValueMember = "PostalAbbreviation"

        'Fill ShipTo Combo
        cmbShipTo.BindingContext = New Windows.Forms.BindingContext
        cmbShipTo.DataSource = objDT
        cmbShipTo.DisplayMember = "FullName"
        cmbShipTo.ValueMember = "PostalAbbreviation"
    End Sub