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

kodu düzelttim 
2. yöntem olarak eğer alanlar sıralı ise
1. alan= metin1 
2. alan =metin2
…….
125alan =metin125

biçimimde ise ve aynı formd ise

for i=1 to metin kutusu sayısı

txtdeger=txtDeger & iif(txtdeger="",controls("metin" & i),"','" & controls("metin" & i))

next

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

farklıformda ise mesela form2 de ise forms("form2")

for i=1 to metin kutusu sayısı

txtdeger=txtDeger & iif(txtdeger="",forms("form2").controls("metin" & i),"','" & forms("form2").controls("metin" & i))

next

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