Originariamente inviato da beppenet
scusami....mi daresti qualche spiegazione su questo codice....così magari imparo qualcosina.... e così scoccio di meno in futuro !?!?

basta anche qualche commento in +
codice:
redim prot(0) 'imposto la dimensione dell'array a 0
do until rs.eof ' ciclo il recordset finchè non è finito
   redim preserve prot(ubound(prot)+1) 'aumento di 1 la dim dell'array
   prot(ubound(prot)) = rs!IDptrAcq ' assegno all'ultimo elemento il valore del recordset
   if  txtProt.text <> prot(ubound(prot)) 'controllo che sia diverso dalla text
       si è diverso
   end if  
   rs.movenext 'mi sposto avanti col recordset
loop