'***************************************** ' fa un replace di Apostrofo mettendone 2 '***************************************** StringaS3 = "SELECT [TabellaSoci].[NumeroSocio], [TabellaSoci].[CognomeNome]" & _ " FROM [TabellaSoci] where [TabellaSoci].[CognomeNome] LIKE '%" & REPLACE(strNomeRicerca,"'","''") & "%'" |