Pq no puedo insertar tupla?

[reycoy]

Ando desesperado. Podría alguien darme una idea de pq me da error la siguiente inserción en la base de datos.
Creo que lo hago todo correcto.
<%
Dim conexion, resultado, files, consulta

Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Mode = adModeWrite
conexion.CursorLocation = adUseClient
files = server.MapPath("aplicacion.mdb")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & files & ";Persist Security Info=False"
consulta = "insert into Usuario (dni/cif, nombre) values ('20012122','Juanjo')"

set resultado = conexion.Execute(consulta, ,adCmdText + adExecuteNoRecords)

conexion.Close
set conexion = nothing
%>

He comprobado la Base de Datos y no hay ningún error de tipo ni nada por el estilo. ¿Alguien tiene alguna idea?

Microsoft JET Database Engine error '80040e14'

Error de sintaxis en la instrucción INSERT INTO.

/pruebas/introducir_control.asp, line 53

[ACHAVARRIA]

Revise tu codigo y observe tresas que talvés te están afectando:

1.

consulta = "insert into Usuario (dni/cif, nombre) values ('20012122','Juanjo')"

'20012122' = si este valor es numerico no necesita " ' " y talves estas tratando de insertar un valor caracter a un campo numerico de Access, recuerda que cuando un valor que posee numeros por estar en " ' " este se convierte en caracter aunque posea numeros.

2.

set resultado = conexion.Execute(consulta, ,adCmdText + adExecuteNoRecords)

En la anterior sentencia solo es necesario lo siguiente:

set resultado = conexion.Execute(consulta)

El resto es "paja" o basura.

3.

Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Mode = adModeWrite
conexion.CursorLocation = adUseClient
files = server.MapPath("aplicacion.mdb")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & files & ";Persist Security Info=False"

En la anterior consulta solo necesitas lo siguiente:

Set conexion = Server.CreateObject("ADODB.Connection")

files = server.MapPath("aplicacion.mdb")

conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & files & ";Persist Security Info=False"

[AlZuwaga]

si no te funciona nada de lo que ACHAVARRIA comenta, intentá poniendo el campo "dni/cif" entre corchetes:


consulta = "insert into Usuario ([dni/cif], nombre) values ('20012122','Juanjo')"

[reycoy]

Ahora mi problema es:

Microsoft JET Database Engine error '80004005'

La operación debe usar una consulta actualizable.

Estoy desesperao