Visual Basic - Mensaje al Eliminar

quisiera saber si me pueden ayudar a enviar un mensaje antes de eliminar un registro este es mi codigo:

Private Sub cmdeliminar_Click()
If Data1.Recordset.BOF Then
Borrar = MsgBox("¿Deseas eliminar este cliente?", vbOKCancel, "Clientes")
Else
End If
Data1.Recordset.Delete
End Sub

se que al decirle BOF me mandara el mensaje cuand yo este en el primer registro... pero es ke no encuentro otra propiedad para ke en cualkier registro envie el mensaje

gracias

Private Sub cmdeliminar_Click()
If Data1.Recordset.BOF Then
Borrar = MsgBox("¿Deseas eliminar este cliente?", vbOKCancel, "Clientes")
if Borrar=6 then
Data1.Recordset.Delete
End If
endif
End Sub

asi en ese orden deberia eliminar cuando presionas el boton ok..devuelve el valor 6...y eso...

Chauuuuuuu....desde chilito...