[vb6] select + vettore

[xegallo]

redim prot(0)
do until rs.eof
   redim preserve prot(ubound(prot)+1)
   prot(ubound(prot)) = rs!IDptrAcq
   if  txtProt.text <> prot(ubound(prot))
       si è diverso
   end if  
   rs.movenext
loop