Chiedo scusa a tutti ma scrivevo con lo smartphone motivo per cui la replace è diventata replica
ecco lo stralcio del codice non segreto che uso
If Len(Me!txtRagDenom.Value & vbNullString) > 0 Then strWH = strWH & "(IIf([Ragione Sociale] Is Null,[Cognome]+' '+[Nome],[Ragione Sociale]) Like '*" & Me!txtRagDenom.Value & "*')" & " And "
'qui ci inserisco altri criteri per filtrare altri campi
If Len(strWH) > 0 Then strWH = Mid$(strWH, 1, Len(strWH) - 5)
Grazie infinite, passavo male il parametro, ho risolto tramite il consiglio di Alex
ecco lo stralcio se può servire come risoluzione ad altri forumisti
RagDenomNew As String
txtRagDenomNew = replace([txtRagDenom], "'", "''")