se ho capito bene cosa vuoi fare:

codice:
"SELECT * FROM pescare WHERE id=" & giorno & " AND titolo='" & replace(titolo11,"'","''")& "'"
cmq ti consiglio di effettuare quel replace esternamente

codice:
dim titoloNew

titoloNew=Replace(titolo11,"'","''")

strSQL = "SELECT * FROM pescare WHERE id=" & giorno & " AND titolo='" & titoloNew & "'"
Bai