Urgente Error De Microsoft?

[jetzona]

el error es :

Microsoft OLE DB Provider for SQL Server error '80040e14'

Line 1: Incorrect syntax near ')'.

/telmex/guarda_carga_cci.asp, line 72


La conexion es:

Dim objConnection
' INSTANCIA EL OBJETO CONNECTION
Set objConnection = Server.CreateObject("ADODB.Connection")
' ABRE LA CONEXION A LA BASE DE DATOS
objConnection.Open "PROVIDER=SQLOLEDB; DATA SOURCE=JETMAXI; INITIAL CATALOG=Telmex; USER ID=sa; PASSWORD="

' CREA UNA CADENA PARA INSERTAR LOS DATOS
Sql = "UPDATE evaluacioncci SET evaluacioncci.pfinal = '"& pfinal &"', evaluacioncci.nfinal = '"& nota &"', evaluacioncci.nb = '"& nb &"', evaluacioncci.r1 = '"& r1 &"', evaluacioncci.obs1 = '"& obs1 &"', evaluacioncci.nd = '"& nd &"', evaluacioncci.r2 = '"& r2 &"', evaluacioncci.r3 = '"& r3 &"', evaluacioncci.r4 = '"& r4 &"', evaluacioncci.r5 = '"& r5 &"', evaluacioncci.r6 = '"& r6 &"', evaluacioncci.obs2 = '"& obs2 &"', evaluacioncci.na = '"& na &"', evaluacioncci.r7 = '"& r7 &"', evaluacioncci.r8 = '"& r8 &"', evaluacioncci.r9 = '"& r9 &"', evaluacioncci.obs3 = '"& obs3 &"', evaluacioncci.nr = '"& nr &"', evaluacioncci.r10 = '"& r10 &"', evaluacioncci.r11 = '"& r11 &"', evaluacioncci.r12 = '"& r12 &"', evaluacioncci.r13 = '"& r13 &"', evaluacioncci.r14 = '"& r14 &"', evaluacioncci.r15 = '"& r15 &"', evaluacioncci.obs4 = '"& obs4 &"', evaluacioncci.ndt = '"& ndt &"', evaluacioncci.r16 = '"& r16 &"', evaluacioncci.obs5 = '"& obs5 &"',evaluacioncci.nc ='"& nc &"', evaluacioncci.r17 = '"& r17 &"', evaluacioncci.r18 = '"& r18 &"', evaluacioncci.obs6 = '"& obs6 &"' WHERE (((evaluacioncci.folio)= "& vfolio &"))"
objConnection.execute (sql)




objConnection.close