Comunque ho effettuato controllo tempi di esecuzione
la parte "lenta" è questa che blocca tutto.
codice:
for i = 0 to rs.Fields.Count-1

if rs.fields(i).Name = "Codice_BIP" then

risultato = risultato & "Codice Cliente</td><td>"

else

risultato = risultato & rs.Fields(i).Name & "</td><td>"

end if

next
risultato = risultato & "</td></tr><tr><td>"
risultato = risultato & rs.GetString(,,"</td><td style=mso-number-format:'\@';>","</td></tr><tr><td>", "-")
Come posso ovviare?