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

Option Explicit
Call CreateQuery()


'=====================================================================
'Создать временную выборку методом ThisApplication.CreateQuery и выполнить ее.
'Функционал такой выборки ограничен.
'=====================================================================
Sub CreateQuery()
    Dim query, objects, obj, RetVal 

    'Создать динамическую выборку
    Set query = ThisApplication.CreateQuery

    'Добавить условие - выбрать из объекты типа "Тест"
    query.AddCondition tdmQueryConditionObjectDef, "OBJ_TEST"

    'Выполнить запрос, сообщить о результате
    query.Permissions = SysAdminPermissions
    'Set objects = ThisApplication.ExecuteQuery(query)
    Set objects = query.Objects
    If Not objects Is Nothing Then
        RetVal = MsgBox("Найдено объектов: " & objects.Count & ". Вывести их описания?", _
                        vbYesNo + vbQuestion, "Результат выполнения запроса")

        If RetVal <> vbNo Then
            For Each obj In objects
                MsgBox obj.Description
            Next
        End If
    Else
        MsgBox "В базе данных """ & ThisApplication.DatabaseName & Chr(13) & _
               """ не найдено объектов типа OBJ_TEST.", vbInformation, _
               "Результат выполнения запроса"
    End If
End Sub 
'=====================================================================