Gan ane tau kalau pertanyaan ini sudah sering di tanyain di Forum-forum VB, tapi dari kemaren ane nyari-nyari nggak ada satupun yang benar-benar bisa menyelesaikan Error yang ane punya ini.
Error Ini muncul ketika ane mau delete data dari sebuah form, program ane masih di jalankan dari IDE gan, belum dari .exe
Ini koding nya gan :
siapa tau ada yang bisa bantu ane.

Private Sub Cmd_Hapus_Click()

 On Error GoTo SalahHapus

 Dim X As Byte

 X = MsgBox("Apakah Anda Yakin Data Akan Dihapus?" + Chr(13) + _

 "Jika Benar Pilih Yes dan jika salah pilih No", _

 vbYesNo + vbQuestion, "Menghapus Data")

 If Not Rs_Pelanggan.RecordCount = 0 Then

 If X = vbYes Then

 Rs_Mutasi.Find "Kd_Plg='" + T_Plg(0) + "'", , adSearchForward, 1

 Rs_Piutang.Find "Kd_Plg='" + T_Plg(0) + "'", , adSearchForward, 1

 If (Rs_Mutasi.EOF) And (Rs_Piutang.EOF) Then

 Rs_Pelanggan.Delete

 MsgBox "Data sudah terhapus", vbOKOnly + vbInformation, "Data Terhapus"

 If Rs_Pelanggan.BOF Then

 Rs_Pelanggan.MoveNext

 ElseIf Rs_Pelanggan.EOF Then

 Rs_Pelanggan.MovePrevious

 Else

 End If

 Else

 MsgBox "Data tidak dapat dihapus," + Chr(13) + _

 "Karena masih terhubung dengan Tabel Mutasi dan Tabel Piutang", _

 vbOKOnly, "Data Tidak Dapat Dihapus"

 Exit Sub

 End If

 Else

 MsgBox "Data Tidak Jadi Dihapus", _

 vbOKOnly + vbInformation, "Tidak Jadi Menghapus"

 End If

 Else

 MsgBox "Data masih kosong", vbOKOnly + vbInformation, "Data Kosong"

 End If

 Bersih

 Isi

 Navigasi

 Kunci

 Exit Sub

SalahHapus:

 MsgBox "Error:" & Err & " " & Err.Description

End Sub

mohon bantuan nya ya Agan-agan sekalian.. I'm Begging You