Devi fare un replace del contenuto della textarea, prima dell'insert (o update), nella seguente maniera:

codice:
contenutoTextarea = request.form("Nome_campo_textarea")
contenutoTextarea = replace(contenutoTextarea, vbcrlf, "
")