Risolto!
prima della select
codice:
cognome=Replace(Me.cognome,”|”,”’”)