Delete current records which is displaying in the objects

[talorababu]

Dear Sir

I want to records which is displaying in different objects. I have used below code, but doesn't work properly.

Private Sub cmddelete_Click()
Dim i As Integer
i = MsgBox("Really want to delete?", vbYesNo, "Delete Option")
If i = vbOK Then
rst.Delete adAffectCurrent
End If
End Sub

Please come back at your earliest.

Regards
talorababu