Sostituisci la riga

rs.Open "update Configurazione set Metallo = '" & Configura & "', Cristallo = '" & Configura2 & "' where id = 1", cn, 1

con

rs.Open "update Configurazione set Metallo = '" & Configura & "', Cristallo = '" & Configura2 & "' where id = 1", cn, adOpenDynamic

e poi, devi chiudere il recordset e la connessione in questo ordine prima di eliminare gli oggetti ...

rs.Close
Set rs = Nothing

cn.Close
Set cn = Nothing

In realta' potevi usare direttamente il metodo Execute della connection senza usare un recordset.