So fondendo il cervello ho un problema non riesco ad aggiornare i campi di una tebella che mi esce il seguente errore:

Microsoft JET Database Engine error '80040e14'

Syntax error in UPDATE statement.

/modifica_utente_ok.asp, line 41

alla linea 41 ho :
set objRs = objConn.Execute(strsql)

Vi incollo tutto il codice:

<%
Dim strConn, objConn, objRs, strsql, submitted
Dim nome, cognome, login1, password1, data_ricevuto, email
'abbiamo le chiavi per l'ufficio?
If Session("login") then
strConn = Application("dbconn")
submitted = Request.QueryString("submitted")
'si, ma è clickata la Form?
If submitted then
'si, è clickata quindi cambiamo i dati
id = Request.QueryString("id")
'raccogliamo I dati dall nostra form
nome = Request.Form("Nome")
cognome = Request.Form("Cognome")
login1 = Request.Form("Username")
password1 = Request.Form("Password")
data_ricevuto = Request.Form("DataReg")
email = Request.Form("email")
'costruiamo la query
strsql = "Update Login "
strsql = strsql & " SET ("
strsql = strsql & "nome = '" & nome & "',"
strsql = strsql & "cognome = '" & cognome & "',"
strsql = strsql & "login1 = '" & login1 & "',"
strsql = strsql & "password1 = '" & password1 & "',"
strsql = strsql & "data_ricevuto = '" & data_ricevuto & "',"
strsql = strsql & "email = '" & email & "') "
strsql = strsql & "Where id = " & id
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
Set objRs = Server.CreateObject("ADODB.Recordset")

set objRs = objConn.Execute(strsql)
'guarda per errori da solo, come abbiamo già fatto
objConn.Close
Set objConn = Nothing
else
'nessun click
id = Request.QueryString("id")
strsql = "Select * from Login where id = " & id
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute(strsql)
nome = objRs("nome")
cognome = objRs("cognome")
login1 = objRs("login1")
password1 = objRs("password1")
DataReg = objRs("data_ricevuto")
email = objRs("email")
%>