Sub FillDomain(tbl)
   dim col
   for each col in tbl.Columns   'Ниже - то, что возвращается
       output col.Domain         'Domain 'T_INT'
       output col.SymbolDataType 'T_INT
       output col.DataType       'integer

       If UCase(col.Datatype) = UCase("integer") then 
          col.SymbolDataType = "T_INT" 'Ошибка выполнения Microsoft VBScript
                                        'Недопустимое число аргументов или присвоение значения свойства: 'col.SymbolDataType' (0x800A01C2) 
          col.Domain = "T_INT" 'Ошибка выполнения Microsoft VBScript
                               'Несоответствие типа: 'col.Domain' (0x800A000D)

       end if
    Next
End Sub