çalışmanız olmadan hangi alanların ne özelliği var formunuzda hangi metin kutusu hangi alana denk geliyor bilemeyiz
o nedenle mutlaka örnek çalışmanız olmalı, eski sorularınızda kullanılmış örneğiniz varsa -yeni sorunuzla uyumluysa- onun linki eklenmeli
kodunuz doğru çalışıyor aslında ama çalışmanızda 2 sorun var
1 - yanlış alanlar metin kutularına bağlanmış

rs.Update 3, Me.TextBox3.Text

rs.Update 4, Me.TextBox4.Text

yazılmış ama
rs.Update 3 alanı TCNoyu günceller
rs.Update 4 alanı ise Adı günceller kodu şu şekilde düzenleyebilirsiniz

rs.Update 1, Me.ComboBox1.Text 'Cinsiyet

rs.Update 2, Me.TextBox1.Text 'Sicil

rs.Update 4, Me.TextBox3.Text 'Adı

rs.Update 5, Me.TextBox4.Text 'SoyAdı

tabi bunlar sizin eski dosyanızaki verilere göre
2 - eğer ilgili kayıt yoksa güncelleme yapamaz hata verir
If rs.RecordCount = 0 Then MsgBox "ilgili kayıt bulunamadı": GoTo 10 hata kontrolü eklenmeli

Dim baglan As New Connection

Dim rs As New Recordset





baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\master.accdb;"

rs.Open "SELECT * FROM personel where tckn='" & Me.TextBox2.Text & "'", baglan, adOpenKeyset, adLockPessimistic



Me.TextBox1.Enabled = True

Me.ComboBox1.Enabled = True

Me.TextBox2.Enabled = True

Me.TextBox3.Enabled = True

Me.TextBox4.Enabled = True

If rs.RecordCount = 0 Then MsgBox "ilgili kayıt bulunamadı": GoTo 10

rs.Update 1, Me.ComboBox1.Text 'Cinsiyet

rs.Update 2, Me.TextBox1.Text 'Sicil

rs.Update 4, Me.TextBox3.Text 'Adı

rs.Update 5, Me.TextBox4.Text 'SoyAdı

10

rs.Close



baglan.Close