Вот пример на VB для добавления в существующий VisualQuery еще не добавленного поля, без проверок.
Dim bd As ZbDatabase
Dim visualquery As IZbVisualQuery
Dim tableref As IZbTableRef
Dim n As Integer
Dim fieldname As String
Set bd = New ZbDatabase
bd.Open ("C:\Program Files\Zulu 6.0\Examples\Termo\Kvartal\doma.zb") 'Открываем бд
Set visualquery = bd.Queries.Default.visualquery 'получаем VisualQuery по умолчанию
n = visualquery.Tables.Count - 1
Set tableref = visualquery.Tables.Item(n) 'берем первую таблицу в запросе
fieldname = tableref.Table.TableDef.GetFieldDef(3).Name 'получаем имя 3-го поля в таблице
visualquery.AddField tableref, fieldname 'добавляем поле в VisualQuery
bd.Save (0) 'не забываем сохранить
Для удаления поля:
fieldname = visualquery.Fields.Item(3).Name
visualquery.RemoveField fieldname
