metti la condizione dell'uscita dal loop
DO UNTIL rsElenco.EOF

.....

ciao