Sò proprio pirla....
No, dai, non essere pirla!

Creati una routine che ti raddoppi gli apici e ti mette anche gli apici esterni, così non ci pensi più es:

codice:
Public Function Apici(byval s as string) as string
    If s = "" Then Exit Function
    s = " '" & Replace(s, "'", "''") & "' "
End Function
Poi quando componi la query:

codice:
"SELECT campo1, campo2 FROM Tabella WHERE campo1 = " & Apici(sValore)
Ciao