Исходный текст

Option Explicit
Call ClearQCollection()

'========================================================
'Удалить выборки из состава объекта.
'Пользователь должен иметь права на редактирование состава объекта.
Sub ClearQCollection()
    Dim Obj, QCol, Query 
    
    'Получить коллекцию выборок в составе первого выделенного объекта
    Set Obj = ThisApplication.Shell.SelObjects(0)
    Set QCol = Obj.Queries
    
    For Each Query In QCol
        'Если выборка глобальная, удалить из системы ее может только сисадмин.
        'В данном случае надо просто удалить связь методом Remove.
        If ThisApplication.Queries.Has(Query) Then
                QCol.Remove Query
        Else
        'Если выборка локальная, надо вызывать метод Erase - иначе
        'удалится только связь, а сама выборка останется висеть в базе.
                Query.Permissions = SysAdminPermissions
                Query.Erase
        End If
    Next
End Sub
'========================================================