mi da questo errore:
ADODB.Stream error '800a0bba'

File could not be opened.

/download.asp, line 32

il codice della pagina download è:
codice:
<%
src = Server.MapPath("/mdb-database/Archivio.mdb")

Set adoCon = Server.CreateObject("ADODB.Connection")
sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src
adoCon.Open  sConnStr

Dim DataConn, rsDC
Dim sRequestIP, FileToDownload
Dim objRecordset

FileToDownload=Clng(Request.QueryString("ID"))
if Len(Trim(FileToDownload)) = 0 then 'controllo che ci sia scritto qualcosa
    response.write "Impossibile effettuare l'operazione. Non è stata selezionata nessuna canzone"
Else

sRequestIP=Request.ServerVariables("REMOTE_ADDR")

Set rsDC = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Archivio WHERE ID =" & FileToDownload 
rsDC.Open strSQL, adoCon

If Not rsDC.EOF Then 

numDLCount = rsDC("Download") + 1

Dim objStream

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile Server.MapPath("karSTOP/" & FileToDownload) 
'objStream.LoadFromFile Server.MapPath(FileToDownload)
' Istruiamo il browser sul tipo di file
Response.AddHeader "Content-Disposition", "attachment; filename=" & FileToDownload
Response.ContentType = "application/octet-stream"
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing


Set objRecordset = Server.CreateObject("ADODB.Recordset")
strSQL = "UPDATE Archivio SET Archivio.Download='" & numDLCount & "' WHERE ID =" & FileToDownload
objRecordset = adoCon.Execute(strSQL)

else

response.write "Il file richiesto non è disponibile per il download"

end if

Set rsDC = Nothing
Set objRecordset = Nothing
adoCon.Close
End if
Set adoConn = Nothing
%>
che richiamo da una pagina in cui estraggo dal db una lista di files:

<td width="5%" height="20" align="left"><%=rs(3)%></td>

qualcuno sa aiutarmi?