определить и задать путь к папке загруженной БД Access

определить и задать путь к папке загруженной БД Access
код VBA:
Private Sub Кнопка79_Click()
Dim Put1 As String
If IsNull(Forms![Пояс3]![имяФайлаДоговор]) = True Or IsNull(Forms![Пояс3]![имяФайлаДоговорПрил]) = True Then
MsgBox ("Поля с именами файлов не должны быть пустыми!")
End If
Put1 = CurrentProject.Path
Forms![Пояс3]![путь] = Put1 & "\" & Forms![Пояс3]![имяФайлаДоговор] & ".xlsx"
Forms![Пояс3]![путьПрил] = Put1 & "\" & Forms![Пояс3]![имяФайлаДоговорПрил] & ".xlsx"
End
End Sub
программы на Microsoft Access
access-program.ru/