scusa, da stupida ho inviato prima di finire di scrivere...

i=rs.RecordCount
if i>0 then
rs("totale")
else
<---messaggio--->
end if

Altrimenti puoi anche evitare la parte dell'else