Visual Basic - conexiones abiertas cn dao

hola, lo que necesito saber es como hacer para ubicar una conexion abierta con dao, es que al cerrar mi programa quiero compactar y reparar mi bdd pero hay una conexion abierta que no me lo permite y necesito saber como ubicarla o de lo contrario cerrar todas las que esten abiertas

Tenés que hacer:

Do while Dao.Workspaces(0).Databases.Count > 0
Do while Dao.Workspaces(0).Databases(0).Recordsets.count > 0
Db.Recordsets(0).close
loop
Dao.Workspaces(0).Databases(0).close
loop

Entonces cierra todos los recordsets que tenés abiertos para las bases de datos del workspace (0).