Set rs = db.OpenRecordSet("select top 30 campo_mail from tabella")

fai un pò di prove aumentando di volta in volta il valore fino a quando non si presenta l'errore.