Verificate questo codice sembra ok ma alla fine mi da l'errore proprio sul rigo objRS.Update
Help me please:

<!--#include virtual="/adovbs.inc"-->
<% Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objconn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("auto.mdb")
Dim objRS, bolFound, strUsername
strUsername = Request.Form("codinterno2")

'make sure all the data was entered
If ((Request.Form("codinterno2") = " ") OR (Request.Form("prezzo2") = " ")) Then
objConn.Close
Set objConn = Nothing
%>
Inserisci i valori nei campi<A HREF="modifica.asp">Indietro</A>
<%
Else
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "auto", objConn, , adLockOptimistic , adCmdTable
bolFound = False

'try to find user's entry in table
Do Until objRS.EOF OR bolFound
If (StrComp(objRS("codinterno"), strUsername, vbTextCompare) = 0) Then
'found it
BolFound = True
Else
objRS.MoveNext
End If
Loop

If Not bolFound Then
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write "<A HREF='modifica.asp'>"
Response.Write "modifiche non valide <P>"
Response.Write "</A>"
Response.End
End If

objRS("codinterno") = Request.Form("codinterno2")
objRS("modello") = Request.Form("modello2")
objRS("cilindrata") = Request.Form("cilindrata2")
objrs("immatricolazione") = Request.Form ("immatricolazione2")
objRS("km") = Request.Form("km2")
objRS("prezzo") = Request.Form("prezzo2")
objRS("note") = Request.Form("note2")
objRS("foto") = Request.Form("foto2")
objRS("colore") = Request.Form("colore2") %> fino a qui <%
objRS.Update
objRS.Close
Set objRS = Nothing
End If
objConn.Close
Set objConn = Nothing
%>
Modifiche effettuate.
<div align="center">

</div>
</body>
</HTML>

Questo è l'errore. Ho già utilizzato questo metodo in un altro database e tutto ok. MAsu questo no. L'inserimento funziona. La modifica funziona fino al rigo objrs.update

Microsoft OLE DB Provider for ODBC Drivers errore "80004005'

[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi nell'istruzione UPDATE.