具有Excel功能VBA连接到SQL问题-编译错误

Question

嗨，我正在尝试在我的excel表中运行一个函数，在该表中通过该函数运行查询并生成数据，但是我设法解决了在SQL中使用该查询的问题，但是当我从Excel运行该函数时，我得到了以下错误：

编译错误：未定义用户定义的类型。

我在EXCEL VB中得到的错误：

我正在运行的功能是：

Function Download_Standard_BOM(Query As String)
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim ConnectionString As String
    Dim StrQuery As String

    ConnectionString = "Driver={SQL Server};Server=STORESYSTEM 
;Database=STORE;Trusted_Connection=Yes;"

    cnn.Open ConnectionString
    StrQuery = Query 'Sheets("Tests Scenario").Range("J2").Offset(i, 0).Value
    cnn.CommandTimeout = 100
    rst.Open StrQuery, cnn, adOpenStatic, adLockOptimistic
    Download_Standard_BOM = rst("NAME")
End Function

我正在运行的SQL查询是：

SELECT TOP 1 NAME
FROM [SERVER].[dbo].[STORE]
WHERE SecurityE = 'SGX' AND
      Trans = ' 0' AND
      Type = '9' AND
      Status = '0' AND
      SubId = 'Reversal'

Answer 1

确保您包含对

Microsoft ActiveX数据对象2.1库