DIM hResult AS Result
FOR EACH hResult
  ...
NEXT

Перечисляет все записи в объекте Result перемещением внутреннего курсора.