Web Listing 3: The FillToolStripButton_Click Event Handler

Imports System.IO
Imports System.Transactions
Public Class Form1
    Dim intCustID, intOrderID As Integer
    Private Sub FillToolStripButton_Click( _
     ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles FillToolStripButton.Click
        Try
            GetCustomersByStateBindingNavigator.Enabled = True
            '      Me.CustomerDataSet.EnforceConstraints = False
            Me.GetCustomersByStateTableAdapter.Fill( _
                Me.CustomerDataSet.GetCustomersByState, _
                    StateWantedToolStripTextBox.Text, _
                    NameHintToolStripTextBox.Text)
            With Me.CustomerDataSet
                intCustID = .GetCustomersByState(0).CustID
                Me.GetOrdersByCustomerTableAdapter.Fill( _
                    Me.CustomerDataSet.GetOrdersByCustomer, intCustID)
                intOrderID = .GetOrdersByCustomer(0).OrderID
                Me.GetItemsByCustomerOrderTableAdapter.Fill( _
                    Me.CustomerDataSet.GetItemsByCustomerOrder, _
                        intOrderID, intCustID)
            End With
            GroupBox1.Enabled = True
        Catch IOREx As IndexOutOfRangeException
            MsgBox("No customers were found using these criteria.", _
                MsgBoxStyle.Exclamation, "Fill request")
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
            GetCustomersByStateBindingNavigator.Enabled = False
        End Try
    End Sub