Работа с данными в word из БД access по запросам

[Pavel-Fenix]

Добрый день!
Бьюсь на такой задачей. По следующему запросу обращаюсь к БД в access

On Error GoTo NotOpen
Connection.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & "Data Source= (далее путь к базе)

но обращение не происходит, в чем может быть дело? версия офиса 2019

Уточню ситуацию. У меня основной вайл формы в Word. Создал форму с текстовыми полями (тип выбор) и хочу из базы данных по признаку сделать запрос данных (перечень сотрудников) чтобы выпадающий список в форме подтягивал 1 столбец данных из access БД. Также дополнительно сделать автозапись в соседнюю ячейку подписи (картинки PDF или tif) в соответствии с выбранной фамилией. Весь код у меня в word, а вот что должно быть в БД (форма данных) и как их подтянуть - вот тут проблемка. Пример рабочего скрипта у меня есть, но под вновь созданную базу заставить его работать не вышло пока.

Расширенная часть кода:

Private Sub UserForm_Activate()
Dim index As Integer
index = 1

On Error GoTo NotOpen
Connection.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & "Data Source= C:\Users\saliy\Desktop\VBA\Сотрудни ки.accdb;"

'Выбираем все записи
SQLString = "SELECT Сотрудники.* FROM Сотрудники ORDER BY Сотрудники.Сотрудник"

RecordSet.Open SQLString, Connection, adOpenForwardOnly, adLockReadOnly, adCmdText
RecordSet.MoveFirst

' Очищаем поля ComboBox
ComboB_Developed.Clear
ComboB_Checked.Clear
ComboB_Head.Clear
ComboB_Control.Clear
ComboB_HeadProject.Clear
ComboB_Stage.Clear
ComboB_Signature.Clear
ComboB_Tom.Clear
ComboB_Language.Clear

'Проходим по всем строкам
While Not RecordSet.EOF
'Заполняем список сотрудников
employee = employee & Format(index, "00") & ":" & RecordSet![Сотрудник] & ";"
employeeENG = employeeENG & Format(index, "00") & ":" & RecordSet![employee] & ";"
'Заполняем соответствующие ComboBox
If RecordSet![Должность] <> "8" And RecordSet![Должность] <> "9" And RecordSet![Должность] <> "10" Then
ComboB_Developed.AddItem RecordSet![Сотрудник]
ComboB_Checked.AddItem RecordSet![Сотрудник]
End If
If RecordSet![Должность] = "8" Then '8 - индекс нач. отдела в подстановочной таблице
ComboB_Head.AddItem RecordSet![Сотрудник]
End If
If RecordSet![Нормоконтролер] Then
ComboB_Control.AddItem RecordSet![Сотрудник]
End If
If RecordSet![Должность] = "10" Then '10 - индекс ГИПа в подстановочной таблице
ComboB_HeadProject.AddItem RecordSet![Сотрудник]
End If
'Переходим на следующую строку
RecordSet.MoveNext
index = index + 1
'Проверка окончания строки
Wend
'Закрываем соединения
RecordSet.Close
Connection.Close
BaseConnect = True
GoTo ClosePiPNR
NotOpen:
'Если соединения с БД нет, то значения берутся по умолчанию из документа
MsgBox ("Отсутствует подключение к базе данных")
BaseConnect = False

Прошу специалистов помочь. По запросу могу дать больше данных.
Может я не правильно формирую БД под такие запросы или что-то не активировал. Спасибо!