Opdatere database

Jeg kunne godt tænke mig at opdatere min database med ASPUpload:

<%
    Set Upload = Server.CreateObject("Persits.Upload")
    Upload.Save "d:/upload"
    Set File = Upload.Files("THEFILE")
    If Not File Is Nothing Then
        Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../database/aspupload.mdb")
        SQL = "INSERT INTO " & Upload.Form("emner") & "(binaere, billed, beskrivelse, overskrift, tekst, emne, filstoerrelse) VALUES(?, '"
        SQL = SQL & File.Filename & "', '"
        SQL = SQL & Replace(Upload.Form("beskrivelse"), "'", "''") & "', '"
        SQL = SQL & Replace(Upload.Form("overskrift"), "'", "''") & "', '"
        SQL = SQL & Replace(Upload.Form("tekst"), "'", "''") & "', '"
        SQL = SQL & Replace(Upload.Form("emner"), "'", "''") & "', '"
        SQL = SQL & File.Size & "')"
        File.ToDatabase Connect, SQL
        Response.Write "File saved."
    Else
        Response.Write "File not selected."
    End If
   
    Response.Redirect "http://www.pussyworld.dk/vvc"
%>

Scriptet virker fint men lige nu tilføjer den data istedet for at opdatere allerede eksisterende data.