a cosa ti serve l'update dentro il loop ?

codice:
rs.update 
RS.MoveNext
dopo il loop chiudi il recordset
codice:
RS.Close
Set RS = Nothing
e dopo
codice:
Conn.Execute sql
Conn.Close
Set Conn = Nothing

prova e fai sapere