Non so se possa servire :master:
codice:
    '----------------------------------------------
    'Sostituisce alcuni caratteri 'strani' in una 
    'istruzione SQL
    '----------------------------------------------
    Public Function FixSQL$(ByVal stringa$)
        stringa = stringa.Replace("""", """""")
        stringa = stringa.Replace("'", "''")
        stringa = stringa.Replace("%", "[%]")
        stringa = stringa.Replace("[", "[[]")
        stringa = stringa.Replace("]", "[]]")
        stringa = stringa.Replace("_", "[_]")
        stringa = stringa.Replace("#", "[#]")
        FixSQL = stringa
    End Function
ma con i parametri mai avuto problemi