Hola, asegurate de hacer el update y sobre todo comprueba que cierras y pones a nothing correctamente tu objeto recordset y la conexión. Tus problemas pueden venir por ahí... ya nos contarás.
Código:
reg.Close
Set reg = Nothing
conex.Close
Set conex = Nothing