ADODB.Recordset error '800a0e78'

Jeg får følgende fejl når jeg kører den på webserveren (men ikke når jeg kører den fra min egen computer):

ADODB.Recordset error '800a0e78'
Operation is not allowed when the object is closed.

Herunder ses koden.



<%
Dim ID,sti
ID = Request("ID")
Dim minCurrent
Dim tstCurrent
Set minCurrent = Server.CreateObject("ADODB.Connection")
Set tstCurrent = Server.CreateObject("ADODB.recordset")
conCurrent.connectionString = "driver={Microsoft Access Driver (*.mdb)};" & _
            "dbq=" & Server.MapPath("database\medlemmer.mdb")
minCurrent.Open


'Response.Write (Request.Form("slet") & "---" & ID)
if Request.Form("slet") = ID then
    strSQL="DELETE * FROM medlemmer WHERE ID=" & ID
    Set tstCurrent = minCurrent.Execute(strSQL)
    Response.Write ("Vedkommende er hermed slettet fra databasen")
else
    Response.Write("Du har ikke indtastet det rigtige nummer.")
end if


%>