fazendo o update

caro Darko,muito legal esse código, testei e deu certinho...Como fazer um update com esse código, ou seja como posso adaptar o código para que eu faça ediçaõ dos arquivos?<%Set Upload = Server.CreateObject("Persits.Upload.1")'Upload.OverwriteFiles = False'On Error Resume Next'Upload.SetMaxSize 1048576 ' Limit files to 1MBCount = Upload.Save("D:\Inetpub\html\teste\pastadasfotos")%><% = Count %> FOTO ENVIADA<%Dim objConn, objRs, strQuery, strConnection, titulo, conteudo, fototitulo = Upload.form("titulo")conteudo = Upload.form("conteudo")Set File = Upload.Files(1)If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" Thenfoto = File.FileNameEnd IfSet objConn = Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=D:\Inetpub\teste\Db1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}"strQuery = "INSERT INTO noticias (titulo,conteudo,foto) VALUES ('"&titulo&"','"&conteudo&"','"&foto&"')"On error Resume NextSet ObjRs = objConn.Execute(strQuery)objConn.closeSet objRs = NothingSet objConn = Nothingif err = 0 Thenresponse.redirect "ok.htm"end if%>