Dim Rs As Recordset

Sub cmdDelete_Click()
X = MsgBox "คุณต้องการลบข้อมูลใช่หรือไม่ ",VbYesNo,"คำยืนยัน "
If X = VbYes Then
If Rs.EditMode = 2 Then
MsgBox "ไม่สามารถลบข้อมูลได้เนื่องจากกำลังเพิ่มข้อมูลอยู่ ",VbOkOnly, "คำชี้แจ้ง "
Exit Sub
End If
On Error goto Err_cmdDelete_Click
Rs.Delete
Rs.MoveNext
If Rs.Eof Then
Rs.MoveLast
End if
Err_cmdDelete_Click:
Exit Sub
Else Exit Sub
End If

End Sub