my question is slightly different from the ones i see on the forum. i am getting this error when trying to clear a column from a record after creating a report. a user is supposed to clear their name from the record after using the record so that the record is released for use to other users. the report is created properly and can be printed, however the program throws this "80040e21 no work done error" wen it tries to release the record. the code is as follows:

<!--CHECK TO SEE IF REPORT IS CURRENTLY IN USE OR NOT USING RPT_CONTROL TABLE, IF NOT ADD REPORT NAME. THIS REPORT AUTOMATICALLY MAKES ITSELF AVIALABLE AFTER 5 MINUTES-->

<%
checkstr = "SELECT * FROM FMFS_RPT_CONTROL WHERE (RPT_REPORT_NAME = 'RVSC461')"
%>

<%




Set cmdTemp = Server.CreateObject("ADODB.Command")
Set CheckCntrl = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = checkstr
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = tsfdataconn
CheckCntrl.Open cmdTemp, , 2, 3
%>
<!--METADATA TYPE="DesignerControl" endspan-->
<%If CheckCntrl.EOF <> True Then

' the first part of this if then statement clears the
' control file if the report has been in use longer
' than 5 minutes, which means that the user never
' allowed the report to complete its execution and delete
' his name from the file
If DateDiff("s", CheckCntrl("RPT_RUN_TIME"), Now) > 300 Or CheckCntrl("RPT_USER_NAME") = Session("Username") Then
CheckCntrl.Delete
Else
rptstatus = "INUSE"
End If

If rptstatus = "INUSE" Then%>
<p align="center">
<font size="3" face="MS Sans Serif">This Report is currently in use but should
be available shortly .
<br>
<br>
Please <a href="RVSC460.asp?pageno=reset">try again</a> .</font></p>
<% Response.End%>
<%End If%>
<%End If%>

<%
CheckCntrl.AddNew
CheckCntrl("RPT_REPORT_NAME") = "RVSC461"
CheckCntrl("RPT_RUN_TIME") = Now
CheckCntrl("RPT_USER_NAME") = Session("Username")
CheckCntrl.Update%>
.
.
.
.
.
.
<p align="center"><font size="4">Report Complete</font></p>
</blockquote>

<p align="center">
<!--#INCLUDE FILE="print.asp"-->
</p>

<%CheckCntrl.Delete%>

********************************************

any ideas guys