Ho risolto il problema inserendo
if not rs.EOF then
perché già avevo un ciclo if then else e quindi l'altra soluzione proposta mi dava problemi!
Grazie ancora a tutti e due di avermi risposto!
Subroutine72