For Each _TableFields (gb.db2)

Dim hTableFields As _TableFields
Dim hField As Field
For Each hField In hTableFields
  ...
Next

Enumerate all table fields.