formdaki kaydı kimlik tablosuna aktarır.
Dim rs As New ADODB.Recordset
rs.Open "kimlik", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("adı") = Me.adı
rs("soyadı") = Me.soyadı
rs("dogum yeri") = Me.dogum_yeri
rs("dogum tarihi") = Me.dogum_tarihi
rs("kno") = Forms![ana]![olay].Form![no]
rs.Update
Set rs = Nothing