prima di lanciare la query prova ad applicare alla stringa un replace

Replace(stringa, "'", "''")