Merhaba Arkadaşlar

Ben visdata ile access veritabanımı oluşturdum. daha sonra forumuma alanlar kadar label ve textkoydum textleri data nesnesi ekleyerek veritabanına bağladım ve aşağıdaki kodları yazdım. Kayıt silme kayıt olmasa bile kayıt silinmiştir diyor orda on error olayı var onu anladık aslında kayıt yok demesi gerekiyor ama beceremedim tabi ama benim esas sorunum İPTAL etme yani yeni kayıt dediğimde kaydet ve iptal butonları aktif kayıttan vazgecersem iptale basıp geri donmeliyim. bunu beceremedim.
Yardımcı olacak arkadaşlar var mı?

Private Sub yenikayit_Click()
yenikayit.Enabled = False
yenikayit.Visible = False
iptal.Enabled = True
Kaydet.Enabled = True
Kaydet.Visible = True
Data1.Refresh
Data1.Recordset.AddNew
Combo(0).SetFocus

Private Sub Kaydet_Click()
yenikayit.Visible = True
yenikayit.Enabled = True
Kaydet.Visible = False
Data1.Recordset.Update
Data1.Refresh
msg = MsgBox("Kayıt Başarılı. ", vbOKOnly + vbInformation, "Veri Toplama")
Form1.Refresh
Form1.Show
End Sub

Private Sub Command3_Click() (Silme icin)
On Error Resume Next
x = MsgBox("Kayıt Silinecek Onaylıyor Musunuz?", vbYesNo + vbInformation, "Silme Onayı")
If x = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveLast
MsgBox "Kayıt Silinmiştir!!", vbInformation, "Bilgi Mesajı"
End If
End Sub

İPTAL KISMI İLE UĞRAŞIYORUM BİR TURLU YAZAMADIM.

Private Sub iptal_Click()
Data1.Recordset.CancelUpdate
Data1.Recordset.Close
yenikayit.Visible = True
yenikayit.Enabled = True
iptal.Visible = False
End Sub
__________________