Bom quando abrimos um Db access ele cria um arquivo de bloqueio com extensão ".ldb". Seria muito simples verificar se ele está aberto referenciando a função a este arquivo (if dir(c:arquivo.ldb)="" then aberto = false). A questão é que quando o Db é fechado de maneira incorreta, o sistema não deleta este arquivo, então se função for referenciada a ele com certeza vai retornar TRUE. Existe alguma outra forma de verificar se o Db está aberto?

Pela propriedade State.

if rs.State = 1 then

   'o bd está aberto

else

   'o bd está fechado

end if