Ошибка при выполнении макроса excel подключения к SQL Server

Пытаюсь подключиться к баз данных,выполняю макрос и получаю ошибку

На Листе4 указан имя сервера и базы данных

Вот сам макрос:

Sub update_table3()

      ' меняем строку подключения
      server = Лист4.Cells(4, 2)
      database = Лист4.Cells(4, 3)
      cstring = "OLEDB;DRIVER=SQL Server;SERVER=" & server & ";UID=admin;PWD=51111;Trusted_Connection=Yes;APP=Microsoft Office 2010;DATABASE=" & database
      ActiveWorkbook.Connections("Filial").OLEDBConnection.Connection = cstring

      ' обновляем sql запрос
      Query = Лист4.Cells(69, 4)
      ActiveWorkbook.Connections("Filial").OLEDBConnection.CommandText = Query

     ' Обновляем данные
      ActiveWorkbook.Connections("Filial").OLEDBConnection.Refresh
      
    End Sub