Delete fra database

Jeg har følgende subrutine:

Sub slettAvvik
    Dim rsTmp
    Set rsTmp = Server.CreateObject("ADODB.RecordSet")

      sSQL = "SELECT * FROM PUNKTVERDI WHERE AvviksmeldingNr=" & iId
    rsTmp.Open sSQL, conn, 3
    rsTmp.close
   
    sSQL = "DELETE * FROM AVVIKSMELDING WHERE Nr=" & iId
    rsTmp.Open sSQL, conn, 3
    rsTmp.close '//(line 279)

End sub

men får følgende feilmelding:

Error Type:
ADODB.Recordset (0x800A0E78)
Operation is not allowed when the object is closed.
/verkstedbooking/forbedring/liste.asp, line 279

Alt fungerer greit i den første SELECT-settningen, men får da feil når jeg prøver med DELETE. Hva gjør jeg feil?

//andersjo