如何从SQL Server导入数据以通过adodb连接进行访问

Question

我正在尝试从表（product_id）的表products导入列（year_bght），该表是在2018年从SQL Server购买产品（[products]）到MS Access（表{{相同） 1}}和列[product_id]）通过adodb.connection。我在MS Access的VBA编辑器中，试图从SQL Server中提取数据。

我的调试器显示错误在cn.Execute行上，但是我似乎无法弄清楚它是什么。我知道连接正常，因为在cn.Execute之前我有一个带有消息框的cn.Print和product_id都可以正常打印

Public Function ConnectionString() As String
    ConnectionString = "Provider=SQLOLEDB; Data Source=*****; Database=*****; Integrated Security=****;"
End Function

Public Sub TestMe()
    Dim rs  As ADODB.Recordset
    Dim cn  As ADODB.Connection

    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    cn.Open (ConnectionString)

    rs.Open "SELECT DISTINCT(product_id) FROM products WHERE year_bght='2018'", cn

    Do While Not rs.EOF
        cn.Execute "INSERT INTO products(product_id) VALUES ('rs.Fields(0).Value');"
        rs.MoveNext
    Loop
End Sub

我希望将rs.Open过滤的列导入到MS Access的products [product_id]列中，但出现错误：

  

无效的对象名称“产品”