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

Enumerates all fields in the table, by changing the current field representing by the object.