DIM hTableField AS .TableField
FOR EACH hTableField
  ...
NEXT

Перечисляет все поля в таблице, изменяя представление текущего поля объектом.