WORD MACRO TO CHECK access DB

I try to Check with a Word VBA macro if the Access DB is open.
How can I do this in a fast way. Maybe it is faster the heck if the DB is not
Open.

Could someone help me with a Code.
Thank you very much in advance

Martin