Delete Button

Hi guys, I have an Add button using this code:
Private Sub btnAdd_Click()
Dim dbFilmi As dao.Database
Dim rstInfoTBL As dao.Recordset

Set dbFilmi = CurrentDb
Set rstInfoTBL = dbFilmi.OpenRecordset("InfoTBL")

rstInfoTBL.AddNew
rstInfoTBL("ID").Value = Me.txtID
rstInfoTBL("Name").Value = Me.txtName
rstInfoTBL("DOB").Value = Me.txtDateFrom
rstInfoTBL.Update
rstInfoTBL.Close

End Sub

And now i'm trying to create a delete button that deletes the info i type in the fields some ideas ?