MS Access Insert In Select Не работает с vba

Я пытаюсь запустить вставку в запрос выбора следующим образом:

Dim rs as new ADODB.recordset
rs.Open "INSERT INTO tempTable(PartNumber, Age, Height, Notes, UpdateType)" & _
        " SELECT PartNumber, Age, Height, Notes, UpdateType FROM TABLE2", CurrentProject.Connection, adOpenStatic, adLockOptimistic

что дает мне ошибку:

Синтаксическая ошибка в инструкции INSERT INTO

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

Мое понимание currentproject.connection заключается в том, что я могу с радостью использовать синтаксис запроса Jet-SQL или MS Access, поэтому, если запрос выполняется в окне запроса в Access, он также должен выполняться в VBA. Похоже, это не так.

Вот еще несколько вещей, которые я пытался запустить:

CurrentProject.Connection.Execute "INSERT INTO tempTable(PartNumber, Age, Height, Notes, UpdateType)" & _
        " SELECT PartNumber, Age, Height, Notes, UpdateType FROM TABLE2"

Это дает ту же ошибку, что и выше.

Я также попытался добавить новую строку vbclrf:

rs.Open "INSERT INTO tempTable(PartNumber, Age, Height, Notes, UpdateType)" & _
        & vbclrf & " SELECT PartNumber, Age, Height, Notes, UpdateType FROM TABLE2", CurrentProject.Connection, adOpenStatic, adLockOptimistic

но это дало мне ту же ошибку