MS Access Insert Into Select Does not work with vba

Question

I am trying to run an insert into select query like this:

Dim rs as new ADODB.recordset
rs.Open "INSERT INTO tempTable(PartNumber, Age, Height, Notes, Up