Ottimo consiglio. Ho fatto proprio così e funziona, il problema è che all'interno del ciclo dovrei inserire alla fine un'istruzione che resetta tutte le variabili in gioco.

codice:
for....
if (rs(i).name="Audio") then
flag_aud=1
end if 

if .... then
...
end if

Qui dovrei resettare le variabili flag_... utilizzate 

next
Ho qualche rimembranza di Buffer... Flush etc... ma non sono riuscito a trovare il comando per resettare tutte le variabili attive.
Qualche suggerimento?
Grazie .