Olá Pessoal Estou com um probleminha, e espero que me ajudem. Quando vou gravar os dados de um formulario (textarea) e existe alguns caracteres especiais no texto e o sistema não deixa gravar: Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression Encontrei uma função aqui no forum mas sinceramente não sei como usá-la, existe outras maneiras de resolver este problema? Segue função que encontrei <% Result = Array() Palavra = "Sport Club Corinthians Paulista %" Invalido = "!,@,#,$,%,¨,&,*,(,),_,+,},{,^,?,:,>,|,Ç,ç,',[,],},{" vInvalido = Split(Invalido,",") Contador = 0 For I = LBound(vInvalido) to UBound(vInvalido) Contador = Contador + 1 Redim Preserve Result(Contador) Result(i) = Instr(Palavra, vInvalido(i)) Next For I = 0 to UBound(Result) If Result(i)>0 Then Response.Write("Localizado o Caractere ") Response.Write("<b>"& "'" & vInvalido(i) & "'" & "</b>") Response.Write(" considerado invalido para o sistema.") End If Next %>