Erro Microsoft Jet Database Engine Error '80040e07'

[Patricia Guido]

Estou com esse erro

Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

não consigo achar o erro

aqui vai o codigo

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="conexao.asp"-->

<%
'recupera os valores
Vnome = Request.Form("nome")
Vcargo = Request.Form("cargo")
Vempresa = Request.Form("empresa")
Vendereco = Request.Form("endereco")
Vnum = Request.Form("num")
Vcompl = Request.Form("compl")
Vcep = Request.Form("cep")
Vcidade = Request.Form("cidade")
Vestado = Request.Form("estado")
Vddd = Request.Form("ddd")
Vtel = Request.Form("tel")
Vcel = Request.Form("cel")
Vemail = Request.Form("email")
Vanexo = Request.Form("anexo")
Vsugestao = Request.Form("sugestao")
Vcorreio = Request.Form("correio")
Vdatatec = Request.Form("datatec")
Vtecnico = Request.Form("tecnico")
Vresposta = Request.Form("resposta")
Vatendimento = Request.Form("atendimento")
Voperacional = Request.Form("operacional")
Vdataop = Request.Form("dataop")
Vfunc = Request.Form("func")
Vrespop = Request.Form("respop")
Vpendencia = Request.Form("pendencia")
Vsoftware = Request.Form("software")
Vversao = Request.Form("versao")
Vrelease = Request.Form("release")
Vwindows = Request.Form("windows")
Vautocad = Request.Form("autocad")


'Inserindo os dados
sql = "INSERT into sugestao ([data], [nome], [cargo], [empresa], [endereco], [num], [compl], [cep], [estado], [cidade], [ddd], [tel], [cel], [email], [anexo], [sugestao], [correio], [datatec], [tecnico], [resposta], [atendimento], [operacional], [dataop], [func], [respop], [pendencia], [software], [versao], [release], [windows], [autocad]) values (#"& Now &"#,'"&Vnome&"','"&Vcargo&"','"&Vempresa&"','"&Vendereco&"','"&Vnum&"','"&Vcompl&"','"&Vcep&"','"&Vestado&"','"&Vcidade&"','"&Vddd&"','"&Vtel&"','"&Vcel&"','"&Vemail&"', '"&Vanexo&"', '"&Vsugestao&"', '"&Vcorreio&"', '"&Vdatatec&"', '"&Vtecnico&"', '"&Vresposta&"', '"&Vatendimento&"', '"&Voperacional&"', '"&Vdataop&"', '"&Vfunc&"', '"&Vrespop&"', '"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"', '"&Vwindows&"', '"&Vautocad&"', true)"

Set rs = bco.Execute(sql)

alguém pode me ajudar por favor

[jothaz]

Princesa,

Este erro acontece por incompatibilidade de tipos de campos.

Pode ocorre porque você esta tentando grava valores alfa em campos numericos ou mesm porque no WHERE não esta sendo utilizando o ' (plic) para delimitar campo afanumericos.

Faça um favor:

'Inserindo os dados
sql = "INSERT into sugestao ([data], [nome], [cargo], [empresa], [endereco], [num], [compl], [cep], [estado], [cidade], [ddd], [tel], [cel], [email], [anexo], [sugestao], [correio], [datatec], [tecnico], [resposta], [atendimento], [operacional], [dataop], [func], [respop], [pendencia], [software], [versao], [release], [windows], [autocad]) values (#"& Now &"#,'"&Vnome&"','"&Vcargo&"','"&Vempresa&"','"&Vendereco&"','"&Vnum&"','"&Vcompl&"','"&Vcep&"','"&Vestado&"','"&Vcidade&"','"&Vddd&"','"&Vtel&"','"&Vcel&"','"&Vemail&"', '"&Vanexo&"', '"&Vsugestao&"', '"&Vcorreio&"', '"&Vdatatec&"', '"&Vtecnico&"', '"&Vresposta&"', '"&Vatendimento&"', '"&Voperacional&"', '"&Vdataop&"', '"&Vfunc&"', '"&Vrespop&"', '"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"', '"&Vwindows&"', '"&Vautocad&"', true)"

response.write sql & "<BR>"
response.end

E post o resultado par avaliarmos sua expressão.

t+