Zafer bey 9. Mesajdaki kodu kendimde denedigimde hata vermedi
 Noktalama işaretlerini iyice kontrol edip tekrar dener misiniz

Private Sub Komut62_Click() 

Dim kutu As Control 

Dim txtDeger As String 

txtDeger = "" 

For Each kutu In Me   

 If kutu.Tag = "ekle" Then txtDeger = txtDeger & IIf(txtDeger = "", kutu, "','" & kutu)

 Next 

DoCmd.RunSQL "INSERT INTO tablo2 (adı,soyadı,tc) VALUES ('" & txtDeger & "')"

 End Sub