Fejl ved sletning af række

Hej Eksperter,
Jeg får følgende fejl når jeg prøver at slette en række:
ADODB.Recordset error '800a0cb3'

Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

/xxx.asp, line 496

Min kode ser således ud:
Set rs_basket_line = Server.CreateObject("ADODB.RecordSet")
rs_basket_line.open "Select * From [Shop_Basket] where Site_Id = " & Site_Id & " and Session_Id = " & Session.SessionID & " order by Id DESC", Conn,1,3
Do while not rs_basket_line.eof

Amount = CDbl(rs_basket_line("Amount"))
Price = CDbl(rs_basket_line("Price"))
Price_total_line = Amount * Price
Price_total = Price_total + Price_total_line

rs_basket_line.delete [Linie 496]
rs_basket_line.update

rs_basket_line.MoveNext
Loop
rs_basket_line.close

Det har før virket, men har nu skiftet til min egen MsSql server, brugte også MsSql før, der blot hos Wannafind.

Er der nogen gode råd?

På forhånd mange tak
/Casper