Настройка базы банных

Sub SetDescription

   'Получили слой карты
    Set L = Zulu.ActiveMapDoc.Layers.Active   

   'Создали объект база данных
    Set Db = CreateObject("zb.database")

    'Открыли базу данных для типа 6 (участок тепловой сети)
    Db.Open L.ObjectTypes.Item(6).BaseName
    
    'Получили индекс поля по имени для визуального запроса активного запроса
    num = Db.ActiveQuery.VisualQuery.Fields.GetIndexByName(zbShortName, "Begin_uch")
    
    'Получили объект для поля
    Set Fld = Db.ActiveQuery.VisualQuery.Fields.Item(num)

    'Задали полю описание
   Fld.Description = "АбвгдежзийклмнеЁ"
    
    'Сохранили измененное описание базы данных
   Db.Save 0
    
End Sub