Dim rs As New ADODB.Recordset
Private Sub KMTEKLE_Click()



Dim v As Variant
rs.Open "TabloPersonel", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

rs.AddNew
rs(1) = Me.MTNADSOYAD
rs(2) = Me.MTNUNVAN
rs(3) = Me.MTNADRES

rs.Update

rs.Close
Me.MTNADSOYAD = " "
Me.MTNUNVAN = " "
Me.MTNADRES = " "
Me.LSTPERSONEL.Requery
Me.LSTPERSONEL.SetFocus
End Sub





Verdiğiniz kodları nereye eklersem uygun olur acaba,
bir kaç yerine ekledim denedim malesef yine boş kayıt attı