hocam kodları kopyaladım, ancak kodların çoğu kırmızıya döndü hata verdi, nerde hata yaptığımı anlayamadım. kodu aşağıdaki gibi yazdım çoğu kırmızı renkli oluyor. kodu örnekte uygulayabilirseniz çok sevinirim.

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