recordset ile tek tek dolaşmanıza gerek yok aslında
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