Excel VBA＆amp;访问查询 - 将数据从另一个表和Excel表中的数据插入表中

Question

我使用Excel VBA通​​过Insert Into查询将数据从Access表1传输到表2。下面的访问查询工作正常：

    "INSERT INTO " & _
        "tblTable2 ([Col_1], [Col_2], [Col_3]) " & _
    "SELECT " & _
        "tblTable1.[Data_1], tblTable1.[Data_2], tblTable1.[Data_3] " & _
    "FROM " & _
        "tblTable1 " & _
    "WHERE " & _
        "tblTable1.[Data_1] = " & Sheet1.Range("D3").Value

比表2添加了新列（Col_4），数据将直接来自excel表。我写了代码（如下所示）并且它不起作用。

    "INSERT INTO " & _
        "tblTable2 ([Col_4], [Col_1], [Col_2], [Col_3]) " & _
    "VALUES (" & sheet2.Range("F1").value & ", " & _        
       "(SELECT " & _
            "tblTable1.[Data_1], tblTable1.[Data_2], tblTable1.[Data_3] " & _
        "FROM " & _
            "tblTable1 " & _
        "WHERE " & _
            "tblTable1.[Data_1] = " & Sheet1.Range("D3").Value & "))"

上面的代码是不准确的吗？