Liste kutusunu güncellemek yerine Refresh yapmayı deneyin sorun kalmayacaktır.

Private Sub Komut2_Click()

strSQL = "SELECT * FROM GENEL "

Set rstkayit = New ADODB.Recordset

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



With rstkayit

    .Find "[SIRA_NO]=" & Me.SIRANO

    .Update

    .Fields("NO") = Me.NO

    .Fields("GRUP_ADI") = Me.ADI

    .Delete

End With



Me.Refresh ' Bu bölümü değiştirmeniz yeterli olacaktır.



End Sub