Prova così

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