For Each _TableFields (gb.db2)

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

Enumerate all table fields.