Replace onchange

[jet]

Private Sub cerca2_Change()

Elenco.RowSource = "SELECT ID, nome, Replace(cognome,”|”,”’”) FROM Cliente WHERE nome LIKE '*" & cerca2.Text & "*' OR cognome LIKE '*" & cerca2.Text & "*'"
End Sub