For Each .Result.Fields (gb.db)

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

Énumère chaque champ inclus dans le résultat.