Error al hacer Update En Access...?

[Mulato]

Saludos colegas, tengo este error cuando trato de hacer update:

Error Type:
Microsoft JET Database Engine (0x80040E07)
Data type mismatch in criteria expression.
/medios/sala11/cod/scr_status_adm.asp, line 20


Aqui les anexo el codigo, dado a que no consigo el problema..???

'Dejamos todo en arreglos
arr_id= Split(id,",")
arr_status= Split(status,",")
arr_desc= Split(desc,",")

'Recorremos los arreglos y actualizamos
for i=LBound(arr_id) to UBound(arr_status)

'Ejecuta un sentencia SQL de actualización
sqltxt="UPDATE cuantica Set status = '"&trim (arr_status(i))&"' WHERE id = '"&trim (arr_id(i))&"' "
Set res = cnn.Execute(sqltxt) --> Aqui revienta el error ???
Contador = Contador + 1
next

'Recorremos los arreglos y actualizamos
for i=LBound(arr_id) to UBound(arr_desc)

'Ejecuta un sentencia SQL de actualización
sqldesc="UPDATE cuantica Set descripcion = '"&trim (arr_desc(i))&"' WHERE id = '"&trim (arr_id(i))&"' "
Set rde = cnn.Execute(sqldesc)
Contador = Contador + 1
next

Gracias por la ayuda