Fejl ved at trække fra..

Hejsa..
Jeg har lavet et mappe system på min hjemmeside men er stødt ind i problemer.
Jeg skal ha' gjort sådan at når man vil slette en fil så finder den ud af hvor meget filen har fyldt og trækker det fra mappens totale størelse men når jeg prøver at trække det fra får jeg fejl.

Det stykke kode jeg har forsøgt med ser sådan ud:

If request.querystring("Side") = "Slet" then

Id = Request.Querystring("Id")
Navn = Request.Querystring("Navn")

Call OpenDataBase

Set objRS = objConn.Execute("Select * From Files Where Filnavn = '" & Navn & "' AND Brugernavn = '" & Session("Brugernavn") & "'")

Mappe = objRS("Mappe")
FileSize = objRS("FileSize")

Set objRS = objConn.Execute("Select * From Mapper Where Navn = '" & Navn & "' AND Brugernavn = '" & Session("Brugernavn") & "'")

TotalSize = objRS("TotalSize") - FileSize

strSQL = "Update Mapper Set"
strSQL = strSQL & " TotalSize = " & TotalSize & ""
strSQL = strSQL & " Where Navn = '" & Navn & "' AND Brugernavn = '" & Session("Brugernavn") & "'"
objConn.Execute(strSQL)

strSQL = "Delete * From Files Where Id = " & Id & ""
objConn.Execute (strSQL)

Call CloseDataBase

Set Upload = Server.CreateObject("Scripting.FileSystemObject")
If (Upload.FileExists(Server.MapPath("/Filer/" & Navn)) = True) Then
Upload.DeleteFile(Server.MapPath("/Filer/" & Navn))
End If
Set Upload = Nothing

Response.Redirect("?Side=Meddelse&Hvad=Slettet&Meddelse=Du har nu slettet " & Server.HtmlEncode(Navn) & "..")

End if


Den fejl jeg får ser således ud:

error '80020009'
/Brugersystem/Mapper.asp, line 409


Er der nogle der kan fortælle mig hvorfor det er jeg får denne fejl?