Aggiornare campi su db con uguale codice cliente

[djjunior]

si l'apice errore di copia incolla eccola.

sql = "SELECT * FROM offerte WHERE cod_cliente = '" & rsc.fields("cod_cliente") & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
localita = Upload.Form("localita").Value
rs.fields("localita") = "" & localita & ""

rs.update

Grazie