Ошибка "Application-defined or object-defined error" 2467

Private Sub Кнопка2_Click()
        
        Dim рстФрмСпрч As DAO.Recordset
        Dim рстСпсФрм As DAO.Recordset
        
        Set рстФрмСпрч = CurrentDb.OpenRecordset("тбл_ФрмСпрч", dbOpenDynaset) ' *** тбл_ФрмСпрч. Справочник форм.
        Set рстСпсФрм = CurrentDb.OpenRecordset("тбл_СпсФрм", dbOpenDynaset)  ' *** тбл_СпсФрм. Список открытых форм
         
                 ' Поиск первой отмеченной записи
                 рстФрмСпрч.FindFirst "Фл1Спрч = true"
                
                 ' Проверка. Выбраны ли записи в таблице
                 If рстФрмСпрч.NoMatch Then
                    MsgBox "Не выбрано ни одной `Формы`"
                    
                    Exit Sub
                 End If
                 
                 Do While Not рстФрмСпрч.NoMatch
                        
                            рстСпсФрм.AddNew
                        
                            рстСпсФрм!ЗглФрмПнлСрвн = рстФрмСпрч!ИмяФрмСпрч
                            frmPnlName = рстФрмСпрч!ИмяФрмСпрч
                        
                        ' Создать экземпляр формы
                        KeepNewFormClonePnl(New Form_ФрмШбл, frmPnlName).Visible = True
                        
                        ' Поиск "следующей" записи
                        рстФрмСпрч.FindNext "Фл1Спрч = true"
            
                        рстСпсФрм.Update ' обновить таблицу
                        Me![фрм_СпсФрм].Requery  ' обновить форму
                        
                        Debug.Print "`" & frmPnlName & "` форма создана "
                        
                  Loop
                        ' !!! Инфо сообщение
                        Debug.Print " "
                        Debug.Print "XXX"
                        Debug.Print "Формы созданы"
                        Debug.Print " Коллекция сollFrm  содержит `" & сollFrm.Count & "` - шт. форм"
End Sub

Private Sub Кнопка6_Click()
      Dim strTest As String
        
        Set рстСпсФрм = CurrentDb.OpenRecordset("тбл_СпсФрм", dbOpenDynaset)  ' *** тбл_СпсФрм. Список открытых форм
                  
                    ' Поиск первой выбранной записи
                         рстСпсФрм.FindFirst "Выдел = true"
                         
                         If рстСпсФрм.NoMatch Then
                            MsgBox "Не выбрано ни одной `Формы`"
                            Exit Sub
                         End If
                         
                         Do While Not рстСпсФрм.NoMatch
                                     
                                     ' *** For Each ***. Перебираем коллекцию открытых форм
                                            For Each f In сollFrm
                                                        strTest = f.Caption
                                                    If f.Caption = рстСпсФрм!ЗглФрмПнлСрвн Then
                                                            f.SetFocus
                                                            DoCmd.Close
                                                            
                                                          ' !!! Инфо сообщение. Общее инфо поле
                                                            Debug.Print "`" & рстСпсФрм!ЗглФрмПнлСрвн & "` форма скрыта"  ' ___
                                                            
                                                          рстСпсФрм.Delete
                                                          Me![фрм_СпсФрм].Requery
                                                          
                                                          Exit For
                                                    End If
                                                                                                 
                                            Next
                                
                                ' Поиск "следующей" записи
                                рстСпсФрм.FindNext "Выдел = true"
                                
                          Loop
End Sub

Option Compare Database
 
Public сollFrm As New Collection ' Коллекция `Форм`
Public osnPnl As Form
 
 
' ### Создание форм ###
Public Function KeepNewFormClonePnl(frm As Form, frmPnlName) As Form
    On Error GoTo Err_KNFC
  
         сollFrm.Add frm
         
         Set KeepNewFormClonePnl = frm
        
         frm.Form.Tag = CStr(frmPnlName)
         frm.Form.Caption = CStr(frmPnlName)
    
    Exit Function
Err_KNFC:
     Err.Raise Err.Number
End Function