使用ODBC连接和对象将Excel VBA连接到SQL Server

Question

我是编码的新手，最近我正在使用Excel和VBA进行库存控制程序，起初我可以在设计器上运行并获得结果，但是我在上面添加的更多按钮和标签成为了一个问题跑！

• 错误1 我不断收到自动化错误。

• 我知道该错误与数据库连接有关，所以我着手连接到数据库。使用下面的代码：

  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数据对象6.1库。 但是我意识到它不起作用，建议使用ODBC连接，现在我被困住了，有人可以帮我吗？

• 我如何使用此连接进行ODBC连接？

• 我在做什么错了？我必须使用哪个参考对象？ PS：我正在使用Excel 2016和SSMS2017。谢谢