On Error GoTo ErrForm_Load
Dim db As Database, Rst As Recordset, nodCurrent As Node
Dim objTree As TreeView, strText As String, nodRoot As Node
Dim bk As String
Set db = CurrentDb
Set Rst = db.OpenRecordset("SwitchboardItems", dbOpenDynaset, dbReadOnly)