Visual Basic - saber si una base de datos esta abierta

como puedo saber si una base de datos access esta abierta, por medio de codigo de visual basic. necesito hacer esta comprobacion, que si esta abierta, pues haga lo que tengo pensado. de lo contrario, mando un mensaje de que no se puede abrir o que esta protegido, como sea.....
les agradezco la ayuda

siendo la tabla td:

If td.State = adStateOpen Then ' si esta abierta
td.Close ' cierro
End If
espero q te sirva de ayuda

Hola: Si bien el ejemplo que dio lubi esta bien, lo que hace es comprobar si la "tabla" esta abierta, pero puedes tener abierta la "base de datos" pero NO una "tabla", por tal motivo si tu quieres saber si la base esta abierta puedes hacer lo siguiente, al abrir una BD Access, crea un archivo de extensión .ldb , entonces chequea que el archivo de nombre de tu base y con extensión .ldb no exista.

Dim comprobar As String
comprobar = dir("C:\Bases\planilla.ldb")
If comprobar = "planilla.ldb" Then
' el archivo existe, la base esta abierta
else
' el archivo no existe. la base esta cerrada
End If

espero te sirva

Muy bueno. Gracias

Y si se corrompe la bdd i queda el .ldb abierto? como comprobamos?