Persist Upload fejl

Upload Hvad er der galt her?
<%
    Set Upload = Server.CreateObject("Persits.Upload")

    ' Capture files
    Upload.Save "./images"

    ' Obtain file object
    Set File = Upload.Files("THEFILE")

    If Not File Is Nothing Then
        ' Build ODBC connection string
        Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\nyheder.mdb")

        ' If you use SQL Server, the connecton string must look something like this:
        ' Connect = "Driver=SQL Server;Server=MYSRV;Database=master;UID=sa;PWD=xxx"

        ' Build SQL INSERT statement
        SQL = "INSERT INTO nyheder(filename, overskrift, nyhed,dato) VALUES('" & File.Filename & "', '" & Upload.Form("overskrift") & "','" & Upload.Form("nyhed") & "','" & Upload.Form("dato") & "')"

        ' Save to database
        File.ToDatabase Connect, SQL
        Response.Write "File saved."
    Else
        Response.Write "File not selected."
    End If
%>

Persits.Upload.1 error '800a001c'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/test/odbc_upload.asp, line 29

LINIE 29: File.ToDatabase Connect, SQL