ho provato cosi:
descrizione=Replace(rs("descrizione_competenza"), VbCrLf, "
" )

ma mi scrive
prova
scrittura
?