ACCESS FEED: [MS_AccessPros] TreeView won't populate images

I have a treeview called TreeView1 on a form called frmTreeView.

It was populating correctly and all off a sudden it starts error with "Key is not unique in collection". When I see this it usually means my Icons folder is not in the correction location. I moved it to where it belongs and its still doing it.

IT chokes on the following code:

objImage.ListImages.Add , "crha", LoadPicture(myPath & "CRHALogo.bmp")

I have checked the location in myPath and it is correct.

This is the AddNode event:

' First links the Treeview to the Imagelist object and then adds
' an image to the Imagelist. Nodes are then added to Treeview
' along with node tags.

Dim objTree As TreeView
Dim objImage As ImageList
Dim myPath As String
Dim db As DAO.Database

Set db = CurrentDb

Set objTree = Me.TreeView1.Object
Set objImage = Me.ImageList1.Object

'link TreeView object to Imagelist object
objTree.ImageList = objImage

myPath = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) & "Icons\"

'add 3 more images to Imagelist
objImage.ListImages.Add , "crha", LoadPicture(myPath & "CRHALogo.bmp")
objImage.ListImages.Add , "edit", LoadPicture(myPath & "edit.bmp")
objImage.ListImages.Add , "3tables", LoadPicture(myPath & "3tables.bmp")

objTree.Nodes.Add , , "A", "CRHA Project Menu", "crha"
objTree.Nodes.Add "A", tvwChild, "A1", "Projects", "frame"
objTree.Nodes.Add "A", tvwChild, "B1", "Units", "frame"
objTree.Nodes.Add "A", tvwChild, "C1", "Administration", "frame"
objTree.Nodes.Add "A1", tvwChild, "A11", "Project - View\Edit", "form"
objTree.Nodes("A11").Tag = "frmProjectsEdit"

objTree.Nodes.Add "A1", tvwChild, "A13", "Project Report List", "form"
objTree.Nodes.Add "A13", tvwChild, "A13A", "Preview Project Unit Summary Report", "report"
objTree.Nodes("A13A").Tag = "rptProjectUnitReport"
objTree.Nodes.Add "A13", tvwChild, "A13B", "Preview Project Unit Rental vs Mutual Help Report", "report"
objTree.Nodes("A13B").Tag = "rptProjectUnitReportRentalsVsMH"
objTree.Nodes.Add "A13", tvwChild, "A13C", "Preview Project Rental Unit by Project Report", "report"
objTree.Nodes("A13C").Tag = "rptProjectRentalUnitReportOnly"
objTree.Nodes.Add "A13", tvwChild, "A13D", "Preview Project Mutual Help Unit By Project Report", "report"
objTree.Nodes("A13D").Tag = "rptProjectMutualHelpUnitReportOnly"

objTree.Nodes.Add "B1", tvwChild, "B11", "Unit - View\Edit", "form"
objTree.Nodes("B11").Tag = "edtUnitList"
objTree.Nodes.Add "B1", tvwChild, "B12", "Unit - Add", "form"
objTree.Nodes("B12").Tag = "addfrmUnits"
objTree.Nodes.Add "B1", tvwChild, "B12A", "Unit - Detail Report", "form"
objTree.Nodes("B12A").Tag = "rptUnitDetailReport"

objTree.Nodes.Add "B1", tvwChild, "B13", "Unit Report List", "form"

objTree.Nodes.Add "B13", tvwChild, "D13", "Unit By Community\Neighborhood Report List", "form"
objTree.Nodes.Add "D13", tvwChild, "D13A", "Preview Units by Community Summary Report", "report"
objTree.Nodes("D13A").Tag = "rptUnitByCommunityReport"
objTree.Nodes.Add "D13", tvwChild, "D13B", "Preview Units by Community Rental vs Mutual Help Report", "report"
objTree.Nodes("D13B").Tag = "rptCommunityUnitReportRentalsVsMH"
objTree.Nodes.Add "D13", tvwChild, "D13C", "Preview Rental Units by Community Only Report", "report"
objTree.Nodes("D13C").Tag = "rptCommunityUnitReportRentalsOnly"
objTree.Nodes.Add "D13", tvwChild, "D13D", "Preview Mutual Help Units by Community Only Report", "report"
objTree.Nodes("D13D").Tag = "rptCommunityUnitReportMutualHelpOnly"
objTree.Nodes.Add "D13", tvwChild, "D13E", "Preview Units by Neighborhood Summary Report", "report"
objTree.Nodes("D13E").Tag = "rptUnitByNeighborhoodReport"
objTree.Nodes.Add "D13", tvwChild, "D13F", "Preview Units by Neighborhood Rental vs Mutual Help Report", "report"
objTree.Nodes("D13F").Tag = "rptNeighborhoodUnitReportRentalsVsMH"
objTree.Nodes.Add "D13", tvwChild, "D13G", "Preview Rental Units by Neighborhood Only Report", "report"
objTree.Nodes("D13G").Tag = "rptNeighborhoodUnitReportRentalsOnly"
objTree.Nodes.Add "D13", tvwChild, "D13H", "Preview Mutual Help Units by Neighborhood Only Report", "report"
objTree.Nodes("D13H").Tag = "rptNeighborhoodUnitReportMutualHelpOnly"

objTree.Nodes.Add "B13", tvwChild, "D14", "Unit By Foundation Report List", "form"
objTree.Nodes.Add "D14", tvwChild, "D14A", "Preview Units by Foundation Type Summary Report", "report"
objTree.Nodes("D14A").Tag = "rptUnitByFoundationTypeReport"
objTree.Nodes.Add "D14", tvwChild, "D14B", "Preview Units by Foundation Type Rental vs Mutual Help Report", "report"
objTree.Nodes("D14B").Tag = "rptFoundationUnitReportRentalsVsMH"
objTree.Nodes.Add "D14", tvwChild, "D14C", "Preview Rental Units by Foundation Only Report", "report"
objTree.Nodes("D14C").Tag = "rptFoundationUnitReportRentalsOnly"
objTree.Nodes.Add "D14", tvwChild, "D14D", "Preview Mutual Help Units by Foundation Only Report", "report"
objTree.Nodes("D14D").Tag = "rptFoundationUnitReportMutualHelpOnly"

objTree.Nodes.Add "B13", tvwChild, "D15", "Unit By Type Report List", "form"
objTree.Nodes.Add "D15", tvwChild, "D15A", "Preview Units by Unit Type Summary Report", "report"
objTree.Nodes("D15A").Tag = "rptUnitByUnitTypeReport"
objTree.Nodes.Add "D15", tvwChild, "D15B", "Preview Units by Unit Type Rental vs Mutual Help Report", "report"
objTree.Nodes("D15B").Tag = "rptUnitTypeUnitReportRentalsVsMH"
objTree.Nodes.Add "D15", tvwChild, "D15C", "Preview Rental Units by Unit Type Only Report", "report"
objTree.Nodes("D15C").Tag = "rptUnitTypeRentalUnitReportOnly"
objTree.Nodes.Add "D15", tvwChild, "D15D", "Preview Mutual Help Units by Unit Type Only Report", "report"
objTree.Nodes("D15D").Tag = "rptUnitTypeMutualHelpReportOnly"

objTree.Nodes.Add "B13", tvwChild, "D16", "Unit By Heating Type Report List", "form"
objTree.Nodes.Add "D16", tvwChild, "D16A", "Preview Units by Heating Type Summary Report", "report"
objTree.Nodes("D16A").Tag = "rptUnitByHeatTypeReport"
objTree.Nodes.Add "D16", tvwChild, "D16B", "Preview Units by Heating Type Rental vs Mutual Help Report", "report"
objTree.Nodes("D16B").Tag = "rptHeatingTypeUnitReportRentalsVsMH"
objTree.Nodes.Add "D16", tvwChild, "D16C", "Preview Rental Units by Heating Type Only Report", "report"
objTree.Nodes("D16C").Tag = "rptHeatingTypeRentalUnitReportOnly"
objTree.Nodes.Add "D16", tvwChild, "D16D", "Preview Mutual Help Units by Heating Type Only Report", "report"
objTree.Nodes("D16D").Tag = "rptHeatingTypeMutualHelpUnitReportOnly"

objTree.Nodes.Add "B13", tvwChild, "D17", "Unit By Unit Status Report List", "form"
objTree.Nodes.Add "D17", tvwChild, "D17A", "Preview Units by Unit Status Type Summary Report", "report"
objTree.Nodes("D17A").Tag = "rptUnitByUnitStatusTypeReport"
objTree.Nodes.Add "D17", tvwChild, "D17B", "Preview Units by Unit Status Type Rental vs Mutual Help Report", "report"
objTree.Nodes("D17B").Tag = "rptUnitStatusUnitReportRentalsVsMH"
objTree.Nodes.Add "D17", tvwChild, "D17C", "Preview Rental Units by Unit Status Only Report", "report"
objTree.Nodes("D17C").Tag = "rptUnitStatusRentalUnitReportOnly"
objTree.Nodes.Add "D17", tvwChild, "D17D", "Preview Mutual Help Units by Unit Status Only Report", "report"
objTree.Nodes("D17D").Tag = "rptUnitStatusmutualHelpUnitReportOnly"

objTree.Nodes.Add "B13", tvwChild, "D18", "Unit By Exterior Status Report List", "form"
objTree.Nodes.Add "D18", tvwChild, "D18A", "Preview Units by Exterior Status Summary Report", "report"
objTree.Nodes("D18A").Tag = "rptUnitByExteriorStatusReport"
objTree.Nodes.Add "D18", tvwChild, "D18B", "Preview Units by Exterior Status Rental vs Mutual Help Report", "report"
objTree.Nodes("D18B").Tag = "rptExteriorUnitReportRentalsVsMH"
objTree.Nodes.Add "D18", tvwChild, "D18C", "Preview Rental Units by Exterior Status Only Report", "report"
objTree.Nodes("D18C").Tag = "rptExteriorRentalUnitReportOnly"
objTree.Nodes.Add "D18", tvwChild, "D18D", "Preview Mutual Help Units by Exterior Status Only Report", "report"
objTree.Nodes("D18D").Tag = "rptExteriorMutualHelpUnitReportOnly"

objTree.Nodes.Add "B13", tvwChild, "D19", "Unit By Interior Status Report List", "form"
objTree.Nodes.Add "D19", tvwChild, "D19A", "Preview Units by Interior Status Summary Report", "report"
objTree.Nodes("D19A").Tag = "rptUnitByInteriorStatusReport"
objTree.Nodes.Add "D19", tvwChild, "D19B", "Preview Units by Interior Status Rental vs Mutual Help Report", "report"
objTree.Nodes("D19B").Tag = "rptInteriorUnitReportRentalsVsMH"
objTree.Nodes.Add "D19", tvwChild, "D19C", "Preview Rental Units by Interior Status Only Report", "report"
objTree.Nodes("D19C").Tag = "rptInteriorRentalUnitReportOnly"
objTree.Nodes.Add "D19", tvwChild, "D19D", "Preview Mutual Help Units by Interior Status Only Report", "report"
objTree.Nodes("D19D").Tag = "rptInteriorMutualHelpUnitReportOnly"

objTree.Nodes.Add "B13", tvwChild, "D20", "Unit By Tenant Compliance Report List", "form"
objTree.Nodes.Add "D20", tvwChild, "D20A", "Preview Units by Tenant Compliance Summary Report", "report"
objTree.Nodes("D20A").Tag = "rptUnitByTenantComplianceReport"
objTree.Nodes.Add "D20", tvwChild, "D20B", "Preview Units by Tenant Compliance Rental vs Mutual Help Report", "report"
objTree.Nodes("D20B").Tag = "rptTenantComplianceUnitReportRentalsVsMH"
objTree.Nodes.Add "D20", tvwChild, "D20C", "Preview Rental Units by Tenant Compliance Only Report", "report"
objTree.Nodes("D20C").Tag = "rptTenantComplianceRentalUnitReportOnly"
objTree.Nodes.Add "D20", tvwChild, "D20D", "Preview Mutual Help Units by Tenant Compliance Only Report", "report"
objTree.Nodes("D20D").Tag = "rptTenantComplianceMutalHelpUnitReportOnly"

objTree.Nodes.Add "B13", tvwChild, "D21", "Unit By Siding Type Report List", "form"
objTree.Nodes.Add "D21", tvwChild, "D21A", "Preview Units by Siding Status Summary Report", "report"
objTree.Nodes("D21A").Tag = "rptUnitBySidingStatusReport"
objTree.Nodes.Add "D21", tvwChild, "D21B", "Preview Units by Siding Status Rental vs Mutual Help Report", "report"
objTree.Nodes("D21B").Tag = "rptSidingTypeUnitReportRentalsVsMH"
objTree.Nodes.Add "D21", tvwChild, "D21C", "Preview Rental Units by Siding Type Only Report", "report"
objTree.Nodes("D21C").Tag = "rptSidingTypeRentalUnitReportOnly"
objTree.Nodes.Add "D21", tvwChild, "D21D", "Preview Mutual Help Units by Siding Type Only Report", "report"
objTree.Nodes("D21D").Tag = "rptSidingTypeMutualHelpUnitReportOnly"

objTree.Nodes.Add "B13", tvwChild, "D22", "Unit By Roofing Type Report List", "form"
objTree.Nodes.Add "D22", tvwChild, "D22A", "Preview Units by Roofing Type Summary Report", "report"
objTree.Nodes("D22A").Tag = "rptUnitByUnitRoofTypeReport"
objTree.Nodes.Add "D22", tvwChild, "D22B", "Preview Units by Roofing Type Rental vs Mutual Help Report", "report"
objTree.Nodes("D22B").Tag = "rptRoofingTypeUnitReportRentalsVsMH"
objTree.Nodes.Add "D22", tvwChild, "D22C", "Preview Rental Units by Roofing Type Only Report", "report"
objTree.Nodes("D22C").Tag = "rptRoofingTypeRentalUnitReportOnly"
objTree.Nodes.Add "D22", tvwChild, "D22D", "Preview Mutual Help Units by Roofing Type Only Report", "report"
objTree.Nodes("D22D").Tag = "rptRoofingTypeMutualHelpUnitReportOnly"

objTree.Nodes.Add "B13", tvwChild, "D23", "Unit By Garage Type Report List", "form"
objTree.Nodes.Add "D23", tvwChild, "D23A", "Preview Units by Garage Type Summary Report", "report"
objTree.Nodes("D23A").Tag = "rptUnitByGarageTypeReport"
objTree.Nodes.Add "D23", tvwChild, "D23B", "Preview Units by Garage Type Rental vs Mutual Help Report", "report"
objTree.Nodes("D23B").Tag = "rptGarageTypeUnitReportRentalsVsMH"
objTree.Nodes.Add "D23", tvwChild, "D23C", "Preview Rental Units by Garage Type Only Report", "report"
objTree.Nodes("D23C").Tag = "rptGarageTypeRentalUnitReportOnly"
objTree.Nodes.Add "D23", tvwChild, "D23D", "Preview Mutual Help Units by Garage Type Only Report", "report"
objTree.Nodes("D23D").Tag = "rptGarageTypemutualHelpUnitReportOnly"

objTree.Nodes.Add "B13", tvwChild, "D24", "Unit By Driveway Type Report List", "form"
objTree.Nodes.Add "D24", tvwChild, "D24A", "Preview Units by Driveway Type Summary Report", "report"
objTree.Nodes("D24A").Tag = "rptUnitByDrivewayTypeReport"
objTree.Nodes.Add "D24", tvwChild, "D24B", "Preview Units by Driveway Type Rental vs Mutual Help Report Report", "report"
objTree.Nodes("D24B").Tag = "rptDrivewayTypeUnitReportRentalsVsMH"
objTree.Nodes.Add "D24", tvwChild, "D24C", "Preview Rental Units by Driveway Type Only Report", "report"
objTree.Nodes("D24C").Tag = "rptDrivewayTypeRentalUnitReportOnly"
objTree.Nodes.Add "D24", tvwChild, "D24D", "Preview Mutual Help Units by Driveway Type Only Report", "report"
objTree.Nodes("D24D").Tag = "rptDrivewayTypemutualHelpUnitReportOnly"

objTree.Nodes.Add "B13", tvwChild, "D25", "Unit By Renovation Type Report List", "form"
objTree.Nodes.Add "D25", tvwChild, "D25A", "Preview Units by Renovation Type Summary Report", "report"
objTree.Nodes("D25A").Tag = "rptUnitByRenovationTypeReport"
objTree.Nodes.Add "D25", tvwChild, "D25B", "Preview Units by Renovation Type Rental vs Mutual Help Report", "report"
objTree.Nodes("D25B").Tag = "rptRenovationTypeUnitReportRentalsVsMH"
objTree.Nodes.Add "D25", tvwChild, "D25C", "Preview Rental Units by Renovation Type Only Report", "report"
objTree.Nodes("D25C").Tag = "rptRenovationTypeRentalUnitReportOnly"
objTree.Nodes.Add "D25", tvwChild, "D25D", "Preview Mutual Help Units by Renovation Type Only Report", "report"
objTree.Nodes("D25D").Tag = "rptRenovationTypeMutualHelpUnitReportOnly"

objTree.Nodes.Add "B13", tvwChild, "D26", "Unit By Recommendation Type Report List", "form"
objTree.Nodes.Add "D26", tvwChild, "D26A", "Preview Units by Recommendation Type Summary Report", "report"
objTree.Nodes("D26A").Tag = "rptUnitByRecommendationTypeReport"
objTree.Nodes.Add "D26", tvwChild, "D26B", "Preview Units by Recommendation Type Rental vs Mutual Help Report", "report"
objTree.Nodes("D26B").Tag = "rptRecommendationUnitReportRentalsVsMH"
objTree.Nodes.Add "D26", tvwChild, "D26C", "Preview Rental Units by Recommendation Type Only Report", "report"
objTree.Nodes("D26C").Tag = "rptRecommendationRentalUnitReportOnly"
objTree.Nodes.Add "D26", tvwChild, "D26D", "Preview Mutual Help Units by Recommendation Type Only Report", "report"
objTree.Nodes("D26D").Tag = "rptRecommendationMutualHelpUnitReportOnly"

objTree.Nodes.Add "B13", tvwChild, "D27", "Unit By Assigned Maintenance Worker Report List", "form"
objTree.Nodes.Add "D27", tvwChild, "D27A", "Preview Units by Assigned Maintenance Worker Summary Report", "report"
objTree.Nodes("D27A").Tag = "rptUnitByAssignedMaintenanceWorkerReport"
objTree.Nodes.Add "D27", tvwChild, "D27B", "Preview Units by Assigned Maintenance Worker Rental vs Mutual Report", "report"
objTree.Nodes("D27B").Tag = "rptAssignedMaintenanceMenUnitReportRentalsVsMH"
objTree.Nodes.Add "D27", tvwChild, "D27C", "Preview Rental Units by Assigned Maintenance Worker Only Report", "report"
objTree.Nodes("D27C").Tag = "rptAssignedMaintenanceMenRentalUnitReportonly"
objTree.Nodes.Add "D27", tvwChild, "D27D", "Preview Mutual Help Units by Assigned Maintenance Worker Only Report", "report"
objTree.Nodes("D27D").Tag = "rptAssignedMaintenanceMenMutualHelpUnitReportOnly"

objTree.Nodes.Add "C1", tvwChild, "C11", "About CRHA Database", "form"
objTree.Nodes("C11").Tag = "edtSplashScreen"
If CurrentAccessLevel = 1 Or CurrentAccessLevel = 3 Then

objTree.Nodes.Add "C1", tvwChild, "C12", "Edit Communities", "form"
objTree.Nodes("C12").Tag = "frmEdtCommunities"
objTree.Nodes.Add "C1", tvwChild, "C12A", "Edit Neighborhood", "form"
objTree.Nodes("C12A").Tag = "frmEdtNeighborhood"
objTree.Nodes.Add "C1", tvwChild, "C13", "Edit Foundation Type", "form"
objTree.Nodes("C13").Tag = "frmEdtFoundation"
objTree.Nodes.Add "C1", tvwChild, "C14", "Edit Driveway Type", "form"
objTree.Nodes("C14").Tag = "frmEdtDriveway"
objTree.Nodes.Add "C1", tvwChild, "C15", "Edit Roof Types", "form"
objTree.Nodes("C15").Tag = "frmEdtRoof"
objTree.Nodes.Add "C1", tvwChild, "C16", "Edit Assigned Maintenance Worker", "form"
objTree.Nodes("C16").Tag = "frmedtAssignedMaintenanceWorker"
objTree.Nodes.Add "C1", tvwChild, "C17", "Edit Recommendation Type", "form"
objTree.Nodes("C17").Tag = "frmEdtRecommendation"
objTree.Nodes.Add "C1", tvwChild, "C18", "Edit Renovation Type", "form"
objTree.Nodes("C18").Tag = "frmEdtRenovation"
objTree.Nodes.Add "C1", tvwChild, "C19", "Edit Siding Type", "form"
objTree.Nodes("C19").Tag = "frmEdtSiding"
objTree.Nodes.Add "C1", tvwChild, "C20", "Edit Unit Status", "form"
objTree.Nodes("C20").Tag = "frmEdtUnitStatus"
objTree.Nodes.Add "C1", tvwChild, "C21", "Edit Unit Type", "form"
objTree.Nodes("C21").Tag = "frmEdtUnitType"
objTree.Nodes.Add "C1", tvwChild, "C22", "Edit Heating Type", "form"
objTree.Nodes("C22").Tag = "frmEdtHeatingType"
objTree.Nodes.Add "C1", tvwChild, "C22A", "Edit Interior Status Type", "form"
objTree.Nodes("C22A").Tag = "frmEdtInteriorStatus"
objTree.Nodes.Add "C1", tvwChild, "C22B", "Edit Exterior Status Type", "form"
objTree.Nodes("C22B").Tag = "frmEdtExteriorStatus"
End If
If CurrentAccessLevel = 1 Then
objTree.Nodes.Add "C1", tvwChild, "C22C", "User Administration", "form"
objTree.Nodes.Add "C22C", tvwChild, "C22C1", "Manage User Access Views", "form"
objTree.Nodes("C22C1").Tag = "edtfrmSecurityAccessViews"
objTree.Nodes.Add "C22C", tvwChild, "C22C2", "Manage User Access Levels", "form"
objTree.Nodes("C22C2").Tag = "edtfrmSecurityAccess"
objTree.Nodes.Add "C22C", tvwChild, "C22C3", "Add New Employee", "form"
objTree.Nodes("C22C3").Tag = "edtfrmNewUser"
objTree.Nodes.Add "C22C", tvwChild, "C22C4", "Add New User", "form"
objTree.Nodes("C22C4").Tag = "edtfrmAddNewUser"
objTree.Nodes.Add "C22C", tvwChild, "C22C5", "User Manager", "form"
objTree.Nodes("C22C5").Tag = "fmnuUsers"
objTree.Nodes.Add "C1", tvwChild, "C23", "Missing Data Reports", "form"
objTree.Nodes.Add "C23", tvwChild, "C24A", "Preview Missing Data Report # 1", "report"
objTree.Nodes("C24A").Tag = "rptMissingDataNo1Report"
objTree.Nodes.Add "C23", tvwChild, "C25A", "Preview Missing Data Report # 2", "report"
objTree.Nodes("C25A").Tag = "rptMissingDataNo2Report"
objTree.Nodes.Add "C23", tvwChild, "C26A", "Preview Missing Data Report # 3", "report"
objTree.Nodes("C26A").Tag = "rptMissingDataNo3Report"
objTree.Nodes.Add "C23", tvwChild, "C27A", "Preview Missing Data Report # 4", "report"
objTree.Nodes("C27A").Tag = "rptMissingDataNo4Report"
objTree.Nodes.Add "C23", tvwChild, "C28A", "Preview Missing Data Report # 5", "report"
objTree.Nodes("C28A").Tag = "rptMissingDataNo5Report"
objTree.Nodes.Add "C23", tvwChild, "C29A", "Preview Missing Data Report # 6", "report"
objTree.Nodes("C29A").Tag = "rptMissingDataNo6Report"
End If

Any ideas?

Thank you,

Art Lorenzini