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