For Each .Result.Fields (gb.db)

Dim hResult As Result
Dim hResultField As ResultField
For Each hResultField In hResult.Fields
  ...
Next

Enumerates each field included in the result.