Hi Steve

Try this (change the messages to what you want) take off the "else" if you
don't want it.

Private Sub Button_Click()
DoCmd.SetWarnings False
If MsgBox("Do you really want to delete this record?", vbQuestion + vbYesNo)
= vbYes Then
   DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
   DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
   MsgBox "OK it's not been cancelled"
End If
DoCmd.SetWarnings True
End Sub

Try somehting like this:

private sub button_click
dim iChoice as Integer

iChoice= msgbox("Do you want to delete?", vbYesNo)

Select Case iChoice
 Case=6
   DoCmd.DoMenuItem acFormbar, acEditMenu, 8, ,acMenuVer70
   DoCmd.DoMenuItem acFormbar, acEditMenu, 8, ,acMenuVer70
 Case = 7
   '-> do what you want to do in case of No...
End Select

end sub

The docmd. option is a wizard generated piece of code while creating a  
deletebutton with the wizard.

hth