gli "a capo" dovrebbe memorizzarseli da solo, ma quando visualizzi devi usare una funzione di questo tipo
codice:
function FormattaStringa(TestoDB)
dim TestoNuovo
TestoNuovo=""
if (TestoDB = "") or isnull(TestoDB) then
else
do while not (instr(1,TestoDB,chr(13)) = 0)
TestoNuovo= TestoNuovo & left(TestoDB, instr(1,TestoDB,chr(13)) -1) & "
"
TestoDB=mid(TestoDB,instr(1,TestoDB,chr(13)) +1,len(TestoDB)-instr(1,TestoDB,chr(13)) )
Loop
TestoNuovo= TestoNuovo & TestoDB
end if
FormattaStringa = TestoNuovo
end function
spero di esserti stato utile