yashuaking ~ I know this is an older post, however for folks searching for an answer to your question I have two bits of code that may help.

I use a simple module to get the database backend path. The first one provides the exact directory where the backend resides.
Code:
Public Function GetDBBEPath() As String
On Error GoTo GetDBBEPath_Err
     Dim strFullPath As String
     strFullPath = Mid(DBEngine.Workspaces(0).Databases(0).TableDefs("NameLinkedTable").Connect,
...