kabaca aşağıdakine benzer bir kod işinizi görür
xSQL = " INSERT INTO S_MdfRct ( Id, UrunAdi, SURNAME, GENDER, BIRTHDATE, CITY, TOWN, TELNR )" & _
" SELECT Id, UrunAdi, SURNAME, GENDER, BIRTHDATE, CITY, TOWN, TELNR" & _
" FROM MdfRecete" & _
" where UrunAdi ='" & Urun & "'"
CurrentDb.Execute xSQL
koddaki alan adlarını kendi tablonuza uyarlamalısınız