Giusto, infatti funziona, maora si blocca qui dove sbaglio, adesso?
codice:
dim SQL
dim NumeroPIvaExcel
Dim ConnDown1 
Dim SQL3
Dim RECDown


NumeroPIvaExcel = request.QueryString("PI") &".xls"


SQL = "SELECT * from [Foglio1$]"
strProvider="Driver={Microsoft Excel Driver (*.xls)};DBQ=" & Server.MapPath("mdb-database\" & NumeroPIvaExcel) 
Set rs = Server.CreateObject("ADODB.recordset") 
rs.Open SQL, strProvider 


Do while not rs.eof 
Set ConnDown1=Server.CreateObject("ADODB.Connection")
ConnDown1.Open conn 
SQL3 =  "INSERT INTO "&NumeroPIva&" (N_Pod, Tipo_Pod, Indirizzo, Comune, Cap, Provincia) VALUES  (' "& rs("N_Pod") &" ',' "& rs("Tipo_Pod") &" ',' "& rs("Indirizzo") &" ',' "& rs("Comune") &" ',' "& rs("Cap") &" ',' "& rs("Provincia") &" ' )"
set RECdown = conn.execute(sql3) 


rs.movenext 
Loop
Grazie, non ne posso piu'