texto = "<table width='10%' border='0' cellspacing='0' cellpadding='0'>
" texto = texto & "<tr><td><p>" & Recordset1.Fields.Item('titcat').Value) & "</span><br />
"
y asi sucesivamente
cambia las comillas dobles pro comillas simples en tu codigo HTML
y luego
Mail.Body = texto
en tu codigo de envio de correo
suerte