Hi,
I know this is an old thread but someone new might stumble across it:
Try this function:
Private Function isAppDbOpen(oApp As Access.Application) As Boolean
Dim strDummy As String
On Error GoTo isAppDbOpen_Error
strDummy = oApp.CurrentDb.Name
isAppDbOpen = True...