cambiá estas líneas...
Código:
Set usuario = ConexionBD.Execute(sql)
usuario.close
por...
Código:
ConexionBD.Execute(sql)
ConexionBD.close
el 'Set usuario =...' está de más porque no debés crear un objeto recordset. y como no se crea, tampoco se cierrra. sí tenés que cerrar la conexion