SoftArtisans.FileUp

Jeg har et problem når jeg vil uploade en fil (SoftArtisans.FileUp) og samtidig indsætte filnavn i database:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

Hvordan kan det være?

Min kode:

<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = Server.Mappath ("billeder")
upl.Save
%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("vti_log/database.mdb")
Conn.Open DSN
strSQL = "Select * From database"
Set rs = Conn.Execute(strSQL)

strSQL = "Insert into database (File) values('" & upl.form("File") & "')"
Conn.Execute(strSQL)
Response.write "Fil uploadet"
Conn.Close
Set Conn = Nothing
%>