Scusa la query è giusta, ne vedevo solo un pezzo...
Prova ad invertire:

if not rs.EOF then
...'scorri
else
...'mandi messaggio
end if

Roby