ti faccio un esempio delle proprieta
codice:
with Response
for each field in Rs.Fields
  .write field.name ' Il nome del campo
  .write field.type ' il tipo (vedi costanti ado in avovbs)
  .write field.value' Il contenuto del campo
  .write field.Definedsize 'il size definito
  .write field.description ' la descrizione del campo
  .write field.actualSize  'l'attuale dimensione del campo
next
end with
ce ne dovrebbe essere qualche altra

p.s cmq credo anch'io che debba usare un while ..movenext