ADO ile kayıt ekleme, güncelleme, silme ve yürüyen bakiye örneği linkindeki kodu örneğinize uyguladım. Veritabanına 2 ado referansı ekledim.

strSQL = "SELECT * FROM Tablo2 "

    Set rstkayit = New ADODB.Recordset

    rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

        With rstkayit

        .Find "[KayitNo]=" & "'" & Me![KNo] & "'"

            If Not rstkayit.EOF Then

                .Fields("KayitNo") = Me.KNo

                .Fields("ad") = Me.ad

                .Fields("soyad") = Me.soyad

                .Fields("KSoyad") = Me.KSoyad

                MsgBox ("Tablodaki " & Me.ad & " " & Me.soyad & " isimli kişiye ait veri güncellendi")

                

                .Update

             Else

                .AddNew

                .Fields("KayitNo") = Me.KNo

                .Fields("ad") = Me.ad

                .Fields("soyad") = Me.soyad

                .Fields("KSoyad") = Me.KSoyad

                MsgBox ("Tabloya " & Me.ad & " " & Me.soyad & " isimli kişi eklendi")

                .Update

             End If

        End With

Ayrıca Sorgu yardımı linkindeki sorunuza geri bildirimde bulununuz.