In fase di inserimento nel database esegui questo replace:

codice:
testo = Replace(testo, vbCrLf, "
")
dove testo è il noem della variabile che contiene il testo del tuo database.