scusa, il forum ha sostituito i caratteri ascii. La riscrivo meglio


function codificaSql(stringa_sql)

stringa_sql = Replace(stringa_sql,"["," & # 91")
stringa_sql = Replace(stringa_sql,"]"," & # 93")
stringa_sql = Replace(stringa_sql,"#"," [ # ]")
stringa_sql = Replace(stringa_sql,"'"," & # 39")
stringa_sql = Replace(stringa_sql,""""," & # 34")
stringa_sql = Replace(stringa_sql,"%"," [ % ] ")
stringa_sql = Replace(stringa_sql,"_"," [ _ ] ")
codificaSql=stringa_sql

End function