Pequeño problema para actualizar

[linea]

Muy buenas tengo una pequeña duda, he buscado por los foros y he visto que ya ha surgido pero no la entiendo y por ello expongo mi caso.

Este es mi codigo

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

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Tienda.mdb"

sql2 = "SELECT CodCli FROM CLIENTES WHERE (CorreoCli='" & Request.Form("correo") & "' and ContraseñaCli='" & Request.Form("contraseña") & "')"

set rec2 = Server.CreateObject("ADODB.Recordset")
rec2 = con.execute(sql2)

sql = "UPDATE CLIENTES SET NomCli='" & Request.Form("nombre") & "', ApeCli='" & _
Request.Form("apellidos") & "', DireCli='" & Request.Form("direccion") & "', CiuCli='" & _
Request.Form("ciudad") & "', ProvinCli= '" & Request.Form("provincia") & "', PostalCli=" & _
Request.Form("codpostal") & ", PaisCli='" & Request.Form("pais") & "',TlfoCli= " & _
Request.Form("telefono") & ", ContraseñaCli='" & Request.Form("contraseña") & "', CorreoCli ='" & _
Request.Form("correo") & "', PreguntaCli= '" & Request.Form("pregunta") & "' WHERE CodCli=" & rec2("CodCli") & " "

set rec = Server.CreateObject("ADODB.Recordset")
rec = con.execute(sql)

Al intentar actualizar un registro utilizo CodCli que es el unico que no se puede modificar porque es el codido del cliente a actualizar. Es un dato autonumerico de BD Access y el error no puede ser porque no exista porque esta pagina viene precedida de otra que muestra sus datos con lo cual el cliente existe y rec2("CodCli") me deberia devolver el valor del codigo del cliente.

El error que me da es este
(0x80020009)
Ocurrió una excepción.

Gracias de antemano