başlık burası mı bilemedim ama sadece aynı hatayı burda gördüm.

Private Sub Komut25_Click()
Dim dno
dno = Me.Dosya_No

CurrentDb.Execute "INSERT INTO Zorunluİstihdam ([Dosya No],[Ad-Soyad],[TC Kimlik No],[Mezuniyet],[Bölümü],[Telefon],[Askerlik],[Görev Yeri-İl],[Görev Yeri-İlçe],[Görev Yeri]) SELECT [Dosya No],[Ad-Soyad],[TC Kimlik No],[Mezuniyet],[Bölümü],[Telefon],[Askerlik],[Görev Yeri-İl],[Görev Yeri-İlçe],[Görev Yeri] FROM [İşbaşıEğitimListesi]" _
& "WHERE  ([İşbaşıEğitimListesi].[Durum] = 'Zorunlu İstihdam')"
Debug.Print strSQL

End Sub

bu kodla insert işlemi oluyor.
ancak
aşağıdaki gibi "dno"yu da ekleyince olmuyor. 

Private Sub Komut25_Click()
Dim dno
dno = Me.Dosya_No

CurrentDb.Execute "INSERT INTO Zorunluİstihdam ([Dosya No],[Ad-Soyad],[TC Kimlik No],[Mezuniyet],[Bölümü],[Telefon],[Askerlik],[Görev Yeri-İl],[Görev Yeri-İlçe],[Görev Yeri]) SELECT [Dosya No],[Ad-Soyad],[TC Kimlik No],[Mezuniyet],[Bölümü],[Telefon],[Askerlik],[Görev Yeri-İl],[Görev Yeri-İlçe],[Görev Yeri] FROM [İşbaşıEğitimListesi]" _
& "WHERE (([İşbaşıEğitimListesi].[Dosya No] = dno) & ([İşbaşıEğitimListesi].[Durum] = 'Zorunlu İstihdam'))"
Debug.Print strSQL

End Sub

hata olarak da aşağıdaki hatayı veriyor: 
Çok az parametre. 1 bekleniyor

teşekkürler.