virgolette in una array

[djjunior]

Grazie Vincent,
ho provato con le virgolette classiche:

vBar = Replace(objrs1("Code"), """, "&quot")
if vBar <> "" then Code = Code&""""&vBar&""","

e ho errore bloccando l'esecuzione dello script alla fine del replace.
poi ho provato con 2 apici:

vBar = Replace(objrs1("Code"), "''", "&quot")
if vBar <> "" then Code = Code&""""&vBar&""","

Lo script viene eseguito, ma non funziona l'autocompletamento