update via loop

hej jeg får denne fejl, hvad er det jeg gør forkert:
----------
ADODB.Recordset error '800a0cb3'

Object or provider is not capable of performing requested operation.

/peppino/update.asp, line 25
----------
Her er koden
----------
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db/db.mdb")
Conn.Open DSN

sql = "select * from bruger"

Set rs = Server.CreateObject("ADODB.Recordset")
set rs = Conn.execute(SQL)

do until rs.eof

pointopsparet = DateDiff("d", rs("dato"), now())*10+10
pointtjent = rs("pointtjent") + pointopsparet
pointnu = pointtjent - rs("pointbrugt")
response.write pointnu

rs("pointnu") = pointnu
rs.update

rs.movenext
loop
%>
----------

/Peppino