Prova così
codice:strSQL = "SELECT Elenco.Codice, Elenco.Titolo FROM Elenco WHERE Elenco.Titolo Like '*" & Me.ricercatitolo & "*' "
Prova così
codice:strSQL = "SELECT Elenco.Codice, Elenco.Titolo FROM Elenco WHERE Elenco.Titolo Like '*" & Me.ricercatitolo & "*' "