Inanzitutto metti

strSQL = "SELECT * FROM progetti WHERE IDProgetto='" & StrId & "'"

(il like è un po' lento e serve per altro)

Secondo. Controlla che la dimensione dei campi sia corretta e di poter mettere a vuoto il campo.

Terzo. Domanda. Ma oUpload.Form("img1"),oUpload.Form("img2")
sono dei files? Se si stai sbagliando.

Quattro. sw01 ti servirà in seguito? Comunque invece di scrivere

codice:
if  ((oUpload.Form("ico1") = "") OR (oUpload.Form("img1") = "")) then

	sw01 = false
else 
	sw01 = true
end if
Puoi mettere:

codice:
sw01 = Not (oUpload.Form("ico1") = "" OR oUpload.Form("img1") = "")
E' la stessa cosa, il codice risulta + pulito