Erro ao inserir dados em tabela Access

[Candanguinho 0]

Olá pessoal, sou novo aqui no Fórum e espero trocar muitas informações úteis! x)~

Seguinte, estou com o seguinte código dando erro... já tentei de tudo e não consigo solucionar, vê se vocês conseguer enxergar algo:

<%Dim cDSN, cSQL, evento, data, local, telefone, site, descricao, imagem, email, coberturaevento = Request.Form("evento")data = Request.Form("data")local = Request.Form("local")telefone = Request.Form("telefone")site = Request.Form("site")descricao = Request.Form("descricao")imagem = Request.Form("imagem")email = Request.Form("email")cobertura = Request.Form("cobertura")cDSN = "DSN=mencontrela"cSQL = "Insert into agenda (evento,data,local,telefone,site,descricao,imagem,email,cobertura,aprovado) values ('"&evento&"',"&data&",'"&local&"','"&telefone&"','"&site&"','"&descricao&"','"&imagem&"','"&email&"','"&cobertura&"','"&aprovado&"')"Set Cx = Server.CreateObject("ADODB.Connection")Cx.Open cDSNSet Rs = Cx.Execute (cSQL)Cx.closeSet Cx = NothingSet Rs = Nothing%>

Está dando o seguinte erro:

 

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO.

 

 

 

Alguém pode dar uma luz?

Obrigado! x)~

[Candanguinho 0]

Desconsidere o código anterior, o código é:

 

<%Dim cDSN, cSQL, evento, data, local, telefone, site, descricao, imagem, email, coberturaevento = Request.Form("evento")data = Request.Form("data")local = Request.Form("local")telefone = Request.Form("telefone")site = Request.Form("site")descricao = Request.Form("descricao")imagem = Request.Form("imagem")email = Request.Form("email")cobertura = Request.Form("cobertura")cDSN = "DSN=mencontrela"cSQL = "Insert into agenda (evento,data,local,telefone,site,descricao,imagem,email,cobertura) values ('"&evento&"',"&data&",'"&local&"','"&telefone&"','"&site&"','"&descricao&"','"&imagem&"','"&email&"','"&cobertura&"')"Set Cx = Server.CreateObject("ADODB.Connection")Cx.Open cDSNSet Rs = Cx.Execute (cSQL)Cx.closeSet Cx = NothingSet Rs = Nothing%>

Obrigado! x)~

[Candanguinho 0]

O erro que está dando neste novo código é o seguinte:Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.Alguém pode ajudar? =/E desculpem-me por tantos posts.

[Mário Monteiro 179]

o campo data esta em que formato???tente colocar as aspas,'"&data&"',local é palavra reservada, coloque entre colchete tambem,data,[local],telefone