Hvad er der galt med min kodning med ASPSmartUload til Access?

Jeg får følgende besked i browseren, når jeg uploader til Access-database:

Microsoft VBScript runtime error \'800a01a8\'

Object required: \'\'

/autokaj/upload.asp, line 40

Min kodning er :

<%
\'  Variables
\'  *********
  Dim mySmartUpload
  Dim intCount
  Dim Conn
  Dim RsMitRecordset
  Dim MinDSN
       
\'  Object creation
\'  ***************
Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")

\' Upload files
mySmartUpload.TotalMaxFileSize = 100000        \'Max size...100KB
mySmartUpload.AllowedFilesList = \"gif,jpg\"
mySmartUpload.Upload

\'  Save the files with their original names in a virtual path of the web server
intCount = mySmartUpload.Save(\"/log\")


\' Process all files received
 
For each file in mySmartUpload.Files

\'Only if the file exist
\' ************************
If not file.IsMissing Then


  \' Save in the database as billede
Set Conn = Server.CreateObject (\"ADODB.Connection\")
MinDSN = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"biler.mdb\") & \";UID=admin;PWD=;\"
Conn.open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & MinDSN


    \'Add the current file in a DB field
    \' *************************************
        RsMitRecordset.AddNew   
        file.FileToField RsMitRecordset.Fields(\"billede\")
        RsMitRecordset(\"billede\") = file.FileName

     
        RsMitRecordset.Update
    RsMitRecordset.Close

End If
       
Next 
     
response.Write(\"<font face=\'Verdana\' size=\'2\' color=\'#000000\'>Filen \" & file.FileName & \" blev uploaded!.<BR><br>\")
Response.Write(\"Filstørrelse: \" & file.Size & \" Bytes<BR>\")
       
RsMitRecordset.close
Conn.close
Set RsMitRecordset = Nothing
Set Conn = Nothing

%>