Quisiera saber como insertar nuevo campo en una tabla haciendo un SELECT

[Maten]

Buenos dias:

Tengo un problema y espero que alguien me pueda ayudar.
EStoy realizando la siguiente consulta y vista asi funciona bien.

Adodc4.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\capturas.mdb;"
Adodc4.RecordSource = "SELECT dia_registro, First(hora_trabajo) AS Horainicio, Last(hora_trabajo) AS Horafin, Count(hora_parada) AS Tiempo,((First(hora_trabajo))&'-'& '('&(First(hora_registro)))&')'as parada" & _
" From datos1" & _
" WHERE fecha >=" & horatot1 & _
" GROUP BY dia_registro, hora_parada" & _
" HAVING (((Count(hora_parada))>1))"

El caso es que me gustaria añadirle dos campos (codigo, maquina) mientras realizo esta consulta. He probado poniendo "SELECT (alter table datos1 ADD COLUMN codigo TEXT), dia_registro,..................... " pero no funciona .
Por favor ayudenme.

Gracias de antemano