No, anche eliminando tutti i controlli, non legge dal foglio excel! Il codice è molto semplice:

rs2 è riferito al foglio excel, mentre rs è riferito al database access

while not rs2.EOF

Codice=rs2("Codice")
Descrizione=rs2("Descrizione")
Prezzo=rs2("Prezzo")

rs.movefirst
while not rs.EOF

if Codice="" then
response.End()
end if

if Codice<>"" then
if strcomp(rs("Codice"),Codice,1)=0 then

rs("Descrizione")=Descrizione
rs("Prezzo")=Prezzo

Prod="Aggiornamento"
flag=1

end if
end if
rs.movenext
wend


if Codice<>"" then

if flag=0 then
rs.addnew
rs("Codice")=Codice
rs("Descrizione")=Descrizione
rs("Prezzo")=Prezzo
rs.update

Prod="Nuovo"
end if
end if


flag=0
rs2.movenext
wend