Insert into

[jochesfor]

Solucione mi problema haciendo antes la consulta select, almacenandola en una variable IdClinica y despues insertarlo con insert into values.

Aunque me funciona bien estoy haciendo una consulta de mas que creo me podria ahorrar, si alguien sabe una solucion mas practica con un solo acceso a la bd, se lo agradeceria.

encontre este ejemplo, no se si funciona, pero solo inserta campos de una o varias tablas en otra, lo que yo quero es combinar seleccion de campos de una tabla con valores enviados por formulario.

insert into PRODUCTOS_ATRIBUTOS
(CodigoTipo,CodigoSubtipo,Descripcion)
select
(select CodigoTipo
from PRODUCTOS_TIPOS PT
where PT.Descripcion='cd'),
(select CodigoSubtipo
from PRODUCTOS_SUBTIPOS PS
where PS.Descripcion='album'),
'nuevo atributo'

Este codigo si me funciono pero solo inserta un solo campo, lo ingresado por formulario no queda almacenado

strSQL = "insert into Medico (IdClinica) select Id_Clinica FROM Clinica where IdGrupo = " & int(Session("Id"))