Dim rs As New ADODB.Recordset
rs.Open "TABLOADI", CurrentProject.Connection,adOpenKeyset,adLockOptimistic
rs.addnew
rs!TabloAlanAdi1= ME.MetinKutusuAdi1
rs!TabloAlanAdi12 = ME.MetinKutusuAdi2 ' Buralar sende kaç tane alan varsa ve kaç tane metin kutusu varsa o kadar çoğalt
RS.uptate
RS.close
örneğinize bakamadım. fakat kodları kendinize uyarlar iseniz sorunsuz şekilde çalışacaktır.