invece di
codice:
if rsAnagrafica.BOF=True AND rsAnagrafica.EOF=True Then
metti
codice:
if rsAnagrafica.EOF Then