Vil ikke opdatere

Hej.
Får fejlmelding:
ADODB.Recordset (0x800A0C93)
Denne handling er ikke tilladt i denne sammenhæng.
/www/kta booking(2)/admin/add.asp, line 253

Linie 253 ser således ud:
rstProd.Close

Kode før og efter er således:
'Get the (new) ID
    intID = rstProd("ID")
   
    'Destroy recordset object
    rstProd.Close
    rstProd.ActiveConnection = Nothing
    Set rstProd = Nothing

Else
End If

strSQL = "SELECT * FROM EVENTS WHERE ID=" & intID
Set rstProd = conn.Execute(strSQL)

If rstProd.EOF Then

Er der en der kan hjælpe med problemet?

gfg-pth