Test edemedim ancak kodu aşağıdaki şekilde düzeltirseniz çalışması gerekir.
Kod:
akd.Execute " insert into Stok_Olustur(Katagori,Model,Tanimlama,Aciklamalar,Siralama) select Katagori,'" & Me.md & "',Tanimlama,0,Siralama from KategoriTanimlama where Katagori='" & Me.ktg & "'"
Sn. Nurullah_Serdar'ın örneğin de bu işin dao ile nasıl yapıldığını görebilirsiniz.
Tercih sizin, istediğinizi kullanın.