errore logico su update record

[Osterello]

Ciao, quando cerco di modificare dei valori nel record mi aggiunge un nuovo record.
Dove sta l'errore logico secondo voi?
GRAZIE

 <%
If Request("Upload")="1" then

Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/db_prova") ,"SELECT * FROM tbl_video"
.EnabledAspUpload    = False
.EnabledImageSize    = False
.EnabledLog          = False
.AutoRename          = False
.Overwrite             = True
.SetPath "/public/"
.Load



While Not .EOF
Select Case lCase(oUpload.Files("InputName"))
Case "thumb"
fotogrande = oUpload.GetFileName()

Case "video"
fotopiccola = oUpload.GetFileName()
End Select



.Save 
.MoveNext

Wend
response.Write "Il video " & fotopiccola &" è stato modificato 
 Torna a [url='home.asp']Films[/url]"

.Database.Open()
'Inserimento dei valori
.Database.Fields("thumb") = "/public/" & fotogrande
'.Database.Fields("percopertina") = fotogrande2

.Database.Fields("video") = "/public/" & fotopiccola
.Database.Fields("cliente") = .Form("cliente")
.Database.Fields("titolo") = .Form("titolo")
.Database.Fields("onair") = .Form("onair")
.Database.Fields("in evidence") = .Form("in evidence")
.Database.Fields("id_films") = .Form("id_films")

'Inserimento
.Database.Update()


End With
Set oUpload = Nothing
end if