Insertar datos en una DB Access

[neo_kike9]

Hola a tol mundo, soy nuevo en este foro.
Desde hace dos dias tengo problemas a la hora de insertar unos datos recogidos de un formulario para insertarlos en una BD.

Me da error a la hora de insertar los registros, ya que en la linea donde ejecuta el codigo me da error.

Aqui se ve:

Dim objConn, objCommand
Set objConn=Server.CreateObject("adodb.connection")
'Abro la conexion con la base de datos
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./visitantes.mdb")
'Abrimos la conexion
objConn.Open
Set objCommand=Server.CreateObject("adodb.command")
objCommand.ActiveConnection=objConn
'Utilizando la orden INSERT INTO Inserto los valores del formulario en la base de datos
objCommand.CommandText="Insert Into Usuarios (Nombre,Apellidos,Empresa,Pais,Municipio,Provincia ,Codigo Postal,Telefono,Email,Recibir,Frecuencia,Tema) Values ('"&Nombre&"','"&Apellidos&"','"&Empresa&"','"&Pai s&"','"&Municipio&"','"&Provincia&"','"&CodigoPost al&"','"&Telefono&"','"&Email&"','"&Recibir&"','"& Frecuencia&"','"&Tema&"')"

objCommand.Execute ( Aqui en esta linea me da el error diciendo que hay un fallo a la hora de ejecutar el INSERT INTO, y no se porkeeeeeeeeee )

'Cerramos la conexion
objConn.Close
Set objConn=Nothing


ALGUIEN SABRIA COMO AYUDARMEEEEEEEEE?????

ASIASSSSSSS

[Teri]

No llore pisha, que todo tiene solución en esta vida menos una cosa....

Que error te da???? escribe el mensaje del error, eso ayudará a encontrarlo

[AlexNV]

prueba a separar los & de los nombres de variable. a veces da problemas.

[joanco]

Es una idea, pero el error no te dara por el nombre de la columna "Codigo Postal"? En la BD tienes el nombre con espacio entre las dos palabras?

[benayas]

Mira antes de meter cualquier dato a la consulta verifica que no lleve comillas ' ya que te dara errores y tambien mete los nombre de columnas entre corchetes [nombre columna] Te mando una función para verificar que no tienes ' y silas tiene mete 2:

Function QuitarComillas(StrCadena)

QuitarComillas=Replace(StrCadena,"'","''")

End Funtion

' Montamos la Instrucción

Sql = "INSERT INTO tblPreguntas (IdTema,Asunto,Comentario,De,Email) " & _
"VALUES (" & Request.Form("IDForo") & ",'" & _
QuitarComillas(Server.HTMLEncode(Request.Form("tbA sunto)& "','" & _
QuitarComillas(Server.HTMLEncode(Request.Form("tbM ensaje)& "','" & _
QuitarComillas(Server.HTMLEncode(Request.Form("tbN ombre")) & "','" & _
QuitarComillas(Server.htmlEncode(Request.Form("tbE mail")) & "');"


Espero que te ayude