Видимость ужасная 9 слишком мелкие картинки ) Если речь идет об OLE, то тогда как то так

Private Sub Form_Open(Cancel As Integer)

Me.ole.Class = "Word.Document.8"
Me.ole.OLETypeAllowed = acOLELinked
Me.ole.SourceDoc = "C:\Что-то там.doc"
Me.ole.Action = acOLECreateLink

End Sub

ole – имя элемента управления

Определение пути

Dim FName As String
Dim result As Integer
With Application.FileDialog(1)
.Title = "Поиск Документа "
.ButtonName = "Добавить"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "*", "*.*", 1

result = .Show


' Закоментированный фрагмент не дает возможности выйти пока не загрузится файл
'******************************************************************************
'If result = 0 Then
'Do Until (result <> 0)
'MsgBox ("Необходимо внести файл в базу")
'result = .Show
'Loop
'End If
'*********************************************************************************
FName = Trim(.SelectedItems.Item(1))
End With

FName содержит строку пути к файлу.