Visual Basic

    Private Sub frmEquipmentSetup_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LoadIntervalComboBox()
        .
        .
        .
    End Sub

   'This is from the User Interface
    Private Sub LoadIntervalComboBox()
        Try
            InitializeErrorClass(EH)
            BL.LoadIntervalComboBox(EH)

            If EH.ErrorMessage = "" Then
                cmbCDInterval = EH.Combo                'There is no data now
            End If

            EH.ErrorMessage = ""

        Catch ex As Exception
            EH.ErrorMessage = "LoadIntervalComboBox() - " & ex.Message & "~E"
        End Try

        EH.ProcessMessages(Me, sbr, EH.ErrorMessage)
    End Sub
   '
   '
   'This SubProcedure is in a Module File
    Public Sub InitializeErrorClass(ByRef EH As ErrorHandling.ErrorHandler)
        Try
            EH.DataSet = New DataSet
            EH.DataTable = New DataTable
            EH.ErrorMessage = ""
            EH.Character = ""
            EH.Bool = False
            EH.Number = 0
            EH.Combo = New ComboBox
            EH.Exception = Nothing

        Catch ex As Exception
            EH.ErrorMessage = "cmbInitializeErrorClass() - " & ex.Message & "~E"
        End Try
    End Sub
   '
   '
   'This Function is in the Business Layer (BL)
    Public Function LoadIntervalComboBox(ByRef EH As ErrorHandling.ErrorHandler)
        Try
            Dim strFields As String = "interval_ID,interval"
            Dim strTblID As String = "LKUP_CalInterval"
            Dim strCriteria As String = "active <> 0"
            Dim strOrderBy As String = ""

            DL.GetData(strTblID, strFields, strCriteria, strOrderBy, EH)     'This Function is in the Data Layer

            If EH.DataSet.Tables(0).Rows.Count > 0 Then
                EH.Combo.DataSource = Nothing
                EH.Combo.DataSource = EH.DataSet.Tables(0)   'At this point there IS data in the table
                EH.Combo.DisplayMember = "interval"
                EH.Combo.ValueMember = "interval_ID"
                EH.Combo.SelectedIndex = -1
            End If

        Catch ex As Exception
            EH.ErrorMessage = "LoadIntervalComboBox() - " & ex.Message & "~E"
        End Try

        Return EH
    End Function
   '
   '
   '
Imports System.Windows.Forms

Public Class ErrorHandler
    'This single variable is used to hold System Warning/Error Messages. It is contained in every Form Module and 
    'Class Module where there is Logic

    Public gTimeOut As Integer = 0
    Public gSplashTimer As Integer = 0
    Public gMessageTimer As Integer = 0

    Public gblnHalt As Boolean = False
    Public gblnEscape As Boolean = False
    Public gblnPause As Boolean = False
    Public gblnMessageTimer As Boolean = False
    Public gblnFlashMessage As Boolean = False
    Public gblnHideMenuIcons As Boolean = False

    Public WithEvents tmrMessage As New Timer
    Public gSBR As New StatusStrip

    Public Property ErrorMessage As String
    Public Property Number As Integer
    Public Property Character As String
    Public Property DataTable As DataTable
    Public Property DataSet As DataSet
    Public Property Exception As Exception
    Public Property Bool As Boolean
    Public Property Miscellaneous As String

    Public Combo As ComboBox
    .
    .
    .

Quote:

="mailto:"&E2&"?subject="&B2&