Public Function PathLinkTable(tablelink As String)
 'получение пути к БД со связанной таблицей 
Dim strPath As String, StrStart As Long, StrEnd As Long
Dim DBPath As String, LastInStr As String
    strPath = CurrentDb.TableDefs(tablelink).Connect
    StrStart = InStr( 1 , UCase(strPath), UCase("Database="), vbTextCompare) + Len("Database=")
    StrEnd = InStr(StrStart, strPath, ";", vbTextCompare)
    StrEnd = IIf(StrEnd =  0 , Len(strPath), StrEnd)
     'Полный путь c именем файла 
    DBPath = Mid(strPath, StrStart, StrEnd - StrStart +  1 )
     'теперь только путь 
    Dim c As Integer
    c =  1 
    Do While c >  0 
    LastInStr = c -  1 
    c = InStr(c, DBPath, "\")
     If c =  0  Then Exit Do
    c = c +  1 
    Loop
   PathLinkTable = Mid(DBPath,  1 , LastInStr -  1 )
End Function