Public Sub New(ByVal Staff_ID As Integer, Optional ByVal Type As StaffHelperType = StaffHelperType.LoggedInUser)

    Dim dt As DataTable = ReadStaffMembers()

    Dim row() As DataRow = dt.Select(AE.Utility.Query.BuildComparisonClause("Staff_Member_ID", Staff_ID))

    'TODO: SF 5/5/06 Need to re-evaluate this solution to the staff caching problem
    'If no staff member was found, flush out the staff tables from cache and look again
    If row.Length = 0 Then

      'EventLog.WriteEntry("FileCaching", String.Concat(HttpRuntime.AppDomainAppVirtualPath, " calling StaffHelper.ResetStaffCache from StaffHelper.New(", Staff_ID.ToString, ", ", Type.ToString, ")"), EventLogEntryType.Warning)

      ResetStaffCache()

      dt = ReadStaffMembers()

      row = dt.Select(AE.Utility.Query.BuildComparisonClause("Staff_Member_ID", Staff_ID))

    End If

    'Return the first record that matches
    If row.Length > 0 Then

      'Use the PrepareRecordHashtable routine to create our hashtable so dbnulls are handled properly
      _StaffMember = AE.Utility.Convert.ToHashtable(row(0))

    End If

    'Create the object instance name
    CreateObjectInstanceName(Type)

    'Find the access level that the staff member has and initialze the private variable for the readonly property StatewideAccessLevel
    _StatewideAccessLevel = CInt(CType(SecurityParameters("Participant"), Hashtable)("Statewide Access Level"))

  End Sub