DIM hResultFields AS .ResultFields
DIM hResultField AS ResultField

FOR EACH hResultField IN hResultFields
  ...
NEXT

Перечисляет каждое поле, включенное в результат.