Problem med kode

Hej

Jeg har lavet en kode til at ændre rækkefølgen på menuen, men den virker ikke altid..

Her er koden:

id = CInt(Request.Querystring("id"))
               
                id1 = id-1

                SQL = "SELECT * FROM bs_sider WHERE orden ="&id1
                Set rs = Conn.Execute(SQL)
               
                NotId = rs("id")
               
                strSQL = "UPDATE bs_sider SET orden = '" & id & "' WHERE orden = " & id1                         
                Conn.Execute(strSQL)

                strSQL1 = "UPDATE bs_sider SET orden = '" & id1 & "' WHERE orden="&id&" AND id <> '" & NotId & "'"                      
                Conn.Execute(strSQL1)

Nogen gange virker den og andre gange virker den ikke... Når den så ikke virker kommer denne fejl:

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.