Подключение Excel VBA к серверу sql с использованием ODBC Connections и объектов

Question

Я новичок в кодировании, я недавно работаю над программой управления запасами, использующей Excel и VBA, сначала я могу запускать и получать результаты на своем конструкторе, но чем больше кнопок и меток, которые я добавляю, становится проблемой дляrun!

• Ошибка 1 I Продолжаю получаться ошибка автоматизации.

• Я понял, что ошибка связана с подключением к базе данных, поэтому я приступил к подключению к базе данных.используя код ниже:

  Sub DbConnection()
  Dim cn As ADODB.Connection
  Set cn = New ADODB.Connection
  Dim rs As ADODB.Recordset
  
  Dim strConn As String
  strConn = "Driver={SQL Server}; Server=servername; Database=Dbname; VID=username; PWD=password"
  
  cn.Open strConn
  cn.Close
  Set cn = Nothing
  MsgBox "Connected"
  End Sub
  

• Я использовал библиотеку Microsoft ActiveX Data Object 6.1.но я понял, что он не работает, и мне было рекомендовано использовать ODBC Connection, и теперь я застрял, может ли кто-нибудь помочь мне в этом?

• Как использовать это соединение для моего ODBCСоединение?

• Что-то я делаю не так?Какой ссылочный объект мне нужно использовать?PS: я использую MS Excel 2016 и SSMS 2017. Спасибо