codice:
adoMio.CommandTimeout = 600
Nell'evento Unload del tuo form principale verifica se i recordset esistono, sono aperti, e li chiudi.


Il codice sotto fa il lavoro sulla connessione, fai prima lo stesso coi recordset
codice:
if not adoMio is nothing then
  if adoMio.State = 1 then
     adoMio.Close
  endif
Set adoMio = Nothing
end if
Ciao