prova con

objMail.HtmlBody = Rs("descrizione") & ""

oppure

objMail.HtmlBody = Cstr(Rs("descrizione"))

facce sape'