For Each Result (gb.db)

Dim hResult As Result
For Each hResult
  ...
Next

Loopt alle records van het Result object opbject af d.m.v. de interne recordwijzer.