Que le pasa a este codigo?

[El Jedi]

Amigos estoy luchando con este codigo desde hace tres días y se me quemaron los papeles por eso recurro a los genios del foro que siempre estan ahí. No puedo hacer que este codigo funcione, aqui les paso el codigo para que lo vean (es un Insert de ASP que mete los datos en una base de datos Access):

Sql = "Insert Into Tabla (A_ID,O_DATE,O_CAMPO_TYPE,O_CAMPO_TYPE,O_CAMPO_CIT Y,O_AR_CITY,O_CAMPO_DATE,O_CAMPO_RETURN,O_CAMPO_TI ME,O_CAMPO_TIME_RETURN,O_CAMPO,O_CHI,O_CHI_AG,O_FI RST_NAME,O_LAST_NAME,O_CAMPO_REQUEST,O_NOTES,O_AVE R_TI,O_PER,O_STA) values ('"
Sql = Sql&request.Form("ID_A")&"','" (Tipo de Dato del Campo: Numero)
Sql = Sql&request.Form("date_time")&"','" (Tipo de Dato del Campo: Numero)
Sql = Sql&request.Form("or_poduct")&"','" (Tipo de Dato del Campo: Texto)
Sql = Sql&request.Form("f_type")&"','" (Tipo de Dato del Campo: Texto)
Sql = Sql&request.Form("mod_from")&"','" (Tipo de Dato del Campo: Texto)
Sql = Sql&request.Form("mod_to")&"','" (Tipo de Dato del Campo: Texto)
Sql = Sql&request.Form("dep")&"','" (Tipo de Dato del Campo: Numero)
Sql = Sql&request.Form("dep1")&"','" (Tipo de Dato del Campo: Numero)
Sql = Sql&request.Form("D2")&"','" (Tipo de Dato del Campo: Numero)
Sql = Sql&request.Form("D1")&"','" (Tipo de Dato del Campo: Numero)
Sql = Sql&request.Form("adu")&"','" (Tipo de Dato del Campo: Numero)
Sql = Sql&request.Form("chi")&"','" (Tipo de Dato del Campo: Numero)
Sql = Sql&request.Form("chda")&"','" (Tipo de Dato del Campo: Numero)
Sql = Sql&request.Form("firstname1")&"','" (Tipo de Dato del Campo: Texto)
Sql = Sql&request.Form("lastname1")&"','" (Tipo de Dato del Campo: Texto)
Sql = Sql&request.Form("D3")&"','" (Tipo de Dato del Campo: Texto)
Sql = Sql&request.Form("special")&"','" (Tipo de Dato del Campo: Texto)
Sql = Sql&request.Form("modify_ave")&"','" (Tipo de Dato del Campo: Numero)
Sql = Sql&request.Form("or_prt")&"','" (Tipo de Dato del Campo: Numero)
Sql = Sql&request.Form("or_stat")&"');" (Tipo de Dato del Campo: Texto)
Set ObjRS = ObjDB.Execute(Sql)

Les puse los campos y el tipo de dato que se mete en cada campo

El error que me tira es este:
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/directorio/directorio/script.asp, line 41
La linea 41 es el Set ObjRS = ObjDB.Execute(Sql), osea que no executa la SQL.
Para mi aparentemente esta todo bien, es mas este mismo codigo lo uso para meter datos en otra base y funciona, yo solo le cambie los nombres de los campos.
A ver si algún iluminado sabe que le pasa a esto.

Gracias anticipadas

[lexus]

hola,
no he visto que tienes mal,

solo te doy esto por si te interesa, me parece que es mas ordenado y mas entendible de esta manera para agregar datos

Código:

sql = "SELECT * FROM tutabla" 
rs.Open sql, con,3,3 
rs.AddNew
rs("campo1") = request.form("variable1")
rs("campo2") = request.form("variable2")
rs("vampo3") = request.form("variable3")
rs.Update

espero te sirva.