I would never navigate in a recordset to perform a delete. If you know the ID of the row, and you are happy to perform a requery after the operation completes, use an SQL delete command, like...
Private Sub cmdDelete_Click()
Const SQL_DELETE As String = _
"DELETE FROM tContact WHERE...