Visual Basic - estan cerradas las DB? (DAO)

He heradado un proyecto bastante grande
En distintas partes del proyecto se abre la base de datos sinn preocuparse de cerarlas
Dim db as database
Set DB = OpenDatabase(\"c:\\HISTORIA.MDB\")
como puedo comprobar en un determinado sitio (al salir por ejemplo)
si todas las instancias a esa base de datos estan cerradas

Puedes hacer 2 cosas
1) desde tu programa, al evento unload del formulario:

on error resume next 'por si la bd ya esta cerrada
db.close
set db=nothing
on error goto 0 ' habilitamos el control de error

con esto te aseguras que la variable db se ha cerrado i has liberado la memoria que usaba.

2) desde fuera del programa, puedes leer el archivo .ldb que utiliza access para controlar los bloqueos de la base de datos en qüestión. Abrelo con el bloc de notas i verás la información que contiene...