Задача такая:
Нужно найти в свойствах Word-файла (файл со сослиянием) то место (свойство), которое отвечает за линк на определенную C:\Client\DB2016.mde
В этой C:\Client\DB2016.mde есть определённый Запрос: SQL_Документ1, который подхватывает Word и грузит в себя. Имя SQL_Документ1 не меняется никогда.
Задача в том, чтобы пользователь мог оперативно (до клика) выбрать год:
C:\Client\DB2016.mde или
C:\Client\DB2015.mde или
C:\Client\DB2014.mde или
C:\Client\DB2013.mde
C:\Client\DB2012.mde

При открытии файла из OLE-поля, obWord должен получить конкретный линк и соответственно обратиться в ту mde, которую пользователь выбрал.
Более того, пользователь может сидеть сам в этой C:\Client\DB2016.mde и попросить данные из этой БД.
После закрытия файла Word, нужно его сохранить обратно в OLE-поле или нет (зависит от прав пользователя)

Private Sub BT_DblClick(Cancel As Integer)
 Dim obWord
 Me.Dokument.Action = acOLEActivate
Set obWord = GetObject(, "Word.Application")
End Sub

http://www.sql.ru/forum/1239170/nayti-i-popravit-link-word-fayla-sosliyanim-pri-otkrytii-fayla-iz-ole-polya