Visual Basic - Eliminar registro

Tengo el siguiente codigo para eliminar un registro de la base de datos:

"Private sub Command1_Click()
Data1.Recordset.Delete
End Sub"

Yo queria que al pinchar ELIMINAR me saliera un mensaje en pantalla pregunando:
"Esta Seguro de eliminar el registro activo"
y poder contestar SI o NO.

En el caso de SI pues eliminar el registro y situarme en el ultimo.
Y en el caso de NO pos que no pase nada.

Por favor cuanto más código mejor...soy un novato en esto.

Muchas Gracias!!

'Para este ejemplo necesitas...
'Boton1: name=cmdAdd
'Boton2: name=cmdEdit
'Boton3: name=cmdDelete
'Boton4: name=cmdUpdate, Enabled=False
'Data: name=Data1
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
cmdUpdate.Enabled = True
'desactivar los otros botones...y el Data1!!
End Sub
Private Sub cmdDelete_Click()
Dim Res As VbMsgBoxResult
Res = MsgBox("Esta seguro que desea eliminar el Registro" & Chr(10) & Chr(10) & _
Data1.Recordset(0).Value, vbApplicationModal + vbExclamation + vbYesNo, "Eliminacion de Registro")
If Res = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveLast
Data1.UpdateControls
End If
End Sub
Private Sub cmdEdit_Click()
'...
'...codigo para activar todos los TextBox
'...
cmdUpdate.Enabled = True
'desactivar los otros botones...y el Data1!!
Data1.Recordset.Edit
End Sub