Private Sub SelectTemplate()
        'User selects the template desired from the drop down list
        Try
            Select Case cboTemplate.Text
                Case Is = "South"
                    SQL_Text = "SELECT itemno, [item desc], barcode, cat, baseunit, stockunit FROM SBI_SOUTH_CUST_ITEMS"
            End Select
            RegionString = SQL_Text
        Catch ex As Exception
            MessageBox.Show("Error:" & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

 Private Sub PopulateCustList()
        'Shows list of customers in Customers drop down list
        Dim SelectCust As String
        Try
            SelectCust = "SELECT * FROM OTM_SOUTH_CUSTOMERS"
            Dim SQLCom As New SqlCommand(SelectCust, SQLCon)
            da = New SqlDataAdapter(SelectCust, SQLCon)
            da.Fill(Custds, "cust")
 
            CustomerLoading = True 'Set flag on
            cboCustomer.DataSource = Custds.Tables("cust")
            cboCustomer.DisplayMember = "name"
            CustomerLoading = False 'Set flag off
 
        Catch ex As Exception
            MessageBox.Show("Error:" & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

Private Sub ShowCustomerDetails()
        'Show items details for specific customers in Items drop down list
        Dim da As SqlDataAdapter
        Dim dt As New DataSet
 
        Try
            Dim SQLCom As New SqlCommand(SQL_Text, SQLCon)
            da = New SqlDataAdapter(SQL_Text, SQLCon)
            da.Fill(dt, "details")
            dgView.DataSource = dt.Tables("details")
            dgView.AutoResizeColumns()
            ItemLoading = True
            cboItem.DataSource = dt.Tables(0)
            cboItem.DisplayMember = "item desc"
            ItemLoading = False
        Catch ex As Exception
            MessageBox.Show("Error:" & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub