buenos aportes los anteriores pero el adodc no tiene un método adodc.close sin embargo si tiene el método adodc.recordset.close aunque eso no es suficiente para cerrar la conexión ya que solo cierras el recordset y el adodc hace conexiones implicitas cada vez que se abre un recordset. Yo utilizo el siguiente codigo para cerrar la conexion.
Dim conn As New ADODB.Connection
Set conn = Adodc.Recordset.ActiveConnection
Adodc.Recordset.Close
conn.Close
y listo
ojalá te sirva de ayuda
salu2