Option Compare Database

Function TEST() '
'пытаюсь программно через DAO создать текстовое описание запроса. Никак не могу понять почему не работает и выдает ошибку 3367 _
Вроде все необходимые референсы подключены _
Самое странное, что с запросом на объединение срабатывает, а в простым запросом на выборку нет. Как так?
DoCmd.SetWarnings False
    
    Dim dbs As DAO.Database, prp As DAO.Property, tdf As DAO.QueryDef
    Dim sDescr As String
    Dim QName As String 'имя запроса

Set dbs = DBEngine(0).OpenDatabase(CurrentDb.Name) 'CurrentDb
    Set tdf = Nothing
    Set MyQuery = Nothing

'здесь просто убиваю тестовые результаты
On Error Resume Next
    DoCmd.DeleteObject acQuery, "Запрос1 NEW"
    DoCmd.DeleteObject acQuery, "Запрос2 NEW"
On Error GoTo 0

'РАБОТАЕТ
QName = "Запрос1" 'есть запрос на объединение здесь называется "Запрос1"
    GoSub Process1
'НЕ РАБОТАЕТ!
QName = "Запрос2" 'есть запрос на выборку здесь называется "Запрос2"
    GoSub Process1

Exit Function

Process1:
    On Error GoTo err_
txtSQL = dbs.QueryDefs(QName).SQL
'просто создаю его копию
'DoCmd.CopyObject , QName & " NEW", acQuery, QName
    Set MyQuery = dbs.CreateQueryDef(QName & " NEW", txtSQL)

'дальше хочу создать описание объекта (созданного запроса)
    sDescr = dbs.Containers("tables").Documents(QName).Properties("description") 'читаем описание объекта, которое есть по-любому (по условию)
    'sDescr = "Тест бл*"
'создаем описания таблицы (здесь не используется)
'CurrentDb.Containers("tables").Documents(QName & " NEW").Properties("description") = sDescr & " NEW" 'создаем описания таблиц

    dbs.TableDefs.Refresh
    Application.RefreshDatabaseWindow
    
    Set tdf = dbs.QueryDefs(QName & " NEW")
    Set prp = tdf.CreateProperty("description", dbText, sDescr)
    tdf.Properties.Append prp 'Call tdf.Properties.Append(prp) ВОТ ЗДЕСЬ НЕ ПРОХОДИТ и РУГАЕТСЯ!!
    
    Set tdf = Nothing
    Set MyQuery = Nothing
Return

err_:
    If Err.Number = 3270 Then
        tdf.Properties.Append tdf.CreateProperty("Description", dbText, sDescr)
    ElseIf Err.Number = 3367 Then
        Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
    End If
Resume Next

End Function

Sub TEST3()
Dim MyQuery As QueryDef
'ÍÅ ÐÀÁÎÒÀÅÒ!
QName = "Çàïðîñ2" 'åñòü çàïðîñ íà âûáîðêó çäåñü íàçûâàåòñÿ "Çàïðîñ2"
txtSQL = CurrentDb.QueryDefs(QName).SQL
Set MyQuery = CurrentDb.CreateQueryDef(QName & " NEW", txtSQL)
MyQuery.Properties.Append MyQuery.CreateProperty("Description", dbText, "Q11 Description")
End Sub

Sub TEST3()

Dim MyQuery As QueryDef
    Set MyQuery = Nothing
'НЕ РАБОТАЕТ!
QName = "Запрос2" 'есть запрос на выборку здесь называется "Запрос2"
txtSQL = CurrentDb.QueryDefs(QName).SQL
Set MyQuery = CurrentDb.CreateQueryDef(QName & " NEW", txtSQL)
MyQuery.Properties.Append MyQuery.CreateProperty("Description", dbText, "Q11 Description")
End Sub

Sub TEST5()

Dim MyQuery As QueryDef
    Set MyQuery = Nothing
QName = "Запрос2" 'есть запрос на выборку здесь называется "Запрос2"
'ВАШ КОД РАБОТАЕТ
Set MyQuery = CurrentDb.CreateQueryDef(QName & " NEW", "SELECT * FROM MSysACEs")
MyQuery.Properties.Append MyQuery.CreateProperty("Description", dbText, "Q11 Description")
'МОЁ НЕ РАБОТАЕТ!
Set MyQuery = CurrentDb.CreateQueryDef(QName & " NEW2", "SELECT tbl1.NAME, tbl1.Count FROM tbl1 WHERE (((tbl1.Count)<6))")
MyQuery.Properties.Append MyQuery.CreateProperty("Description", dbText, "Q11 Description")
End Sub

For i = 0 To MyQuery.Properties.Count
    Debug.Print MyQuery.Properties(i).Name, MyQuery.Properties(i).Value
Next

Sub TEST5()

Dim MyQuery As QueryDef

QName = "Запрос2" 'есть запрос на выборку здесь называется "Запрос2"
'ВАШЕ РАБОТАЕТ
Set MyQuery = CurrentDb.CreateQueryDef(QName & " NEW_TEST", "SELECT * FROM MSysACEs")
MyQuery.Properties.Append MyQuery.CreateProperty("Description", dbText, "Q11 Description")

'МОЁ!
txtSQL = CurrentDb.QueryDefs(QName).SQL
Set MyQuery = CurrentDb.CreateQueryDef(QName & " NEW", txtSQL)
CurrentDb.TableDefs.Refresh
On Error Resume Next
For i = 0 To MyQuery.Properties.Count
    Debug.Print MyQuery.Properties(i).Name, MyQuery.Properties(i).Value
Next

On Error GoTo 0
'НЕ РАБОТАЕТ, дебагер говороит что описание есть
MyQuery.Properties.Append MyQuery.CreateProperty("Description", dbText, "Q11 Description")
'Пробую второй варинт добавления описания - ошибка 3270 - Св-во не найдено (собственно о чем и ругается дебагер в первом разе)
CurrentDb.Containers("tables").Documents(QName & " NEW").Properties("description") = "Q11 Description"

End Sub