Quote Originariamente inviata da oregon Visualizza il messaggio
Sicuro? Mostra tutto il codice ...
eccoti parte del codice:

SCRITTURA DEL DATABASE
AggiungiNomeSezione = Replace$(ModificaNomeSezione.Text, Chr$(13), "<br>")
MsgBox AggiungiNomeSezione

SALVATAGGIO DEL AggiungiNomeSezione





LETTURA DA DATABASE
sponsoradattato = Replace$(rs("sponsor"), "<br>", vbCrLf)
ModificaNomeSezione.Text = sponsoradattato