Le righe rosse devi eliminarle e queste metterle così:

codice:
rs.MoveNext 
loop
Set rs=Nothing 
DBConn.Close 
Set DBConn= Nothing

Roby