datalist box a item ekleme-çıkartma

[drumatic]

datalist box ın access baglatısını kurdum buna item ekleme ve çıkartma işlemini hatasız olarak yapamadım yardım ederseniz sevinirim simdiden tesekkürler

visual basic de kullanıcam

 

[drumatic]

Private Sub Command1_Click()
On Error GoTo hata
Adodc1.Recordset.Save
Adodc1.Recordset.AddNew
Exit Sub
hata:
Resume Next
End Sub

Private Sub Command2_Click()
On Error GoTo hata
Adodc1.Recordset.Delete
Exit Sub
hata:
Resume Next
End Sub


kullandığım kodlar bunlar bunu yapınca hata oluşuyor