Store the pathname in a intermediaire file, such as an INI file.
Pseudo code to retrieve the DB path from Word VBA:

Snippet of file: c:\Temp\MyIniFile.INI
=start snip
[Database]
Path=y:\Data\Anypath\
Name=MyDatabase.MDB
=end snip

Retrieving info in Word:
=start Word VBA code
Dim sINI as string
Dim sPath as string
Dim sDBName as string
sINI = "c:\Temp\MyIniFile.INI"
sPath = System.PrivateProfilestring(sINI, "Database", "Path")
sDBName = System.PrivateProfilestring(sINI, "Database", "Name")
MsgBox "My database path is: " sPath & vbCr & _
   "FileName: " &  sDBName & vbCr & "DB FullFileName: " & vbCr & _
   sPath & sDBName

=end Word VBA code

Krgrds,
Perry