galen update

varför funkar det inte??

får:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Drivrutin för ODBC Microsoft Access]Fel i rad
/chat.asp, line 32

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("Database/members.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members where id = " &Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Recset.addnew
Recset("startchat") = now()
[b]Recset.update[/b]
recset.close
connect.close
set Recset = nothing
set connext = nothing
%>

gjorde såhär istället funkar nu!!

<%
'########################## start ##########################
set connect22 = server.createobject("adodb.connection")
Connect22.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
connect22.execute "update members set startchat = now() where id = " & session("id"),,128
'#############################################################################
%>