Merhaba. özgürün cevabına ek olarak,

   Dim db As DAO.Database

   Dim rs As DAO.Recordset

   Dim GSonSayim As Integer



   Set db = DBEngine(0)(0)

    

   db.Execute "INSERT INTO tbl_tablo (adisoyadi) VALUES ('" & mtn_adisoyadi & "')"

    

   Set rs = db.OpenRecordset("SELECT @@IDENTITY AS LastID;")

   GSonSayim = rs!LastID

   rs.Close



   Set rs = Nothing

   Set db = Nothing

    

   MsgBox (GSonSayim)

Bu kod, butonun tıklandığında tabloya veri aktarır ve GSonSayim değişkeni aktarılan kaydın sayı numarasıdır