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.