Thanks Drankenneo, but I found the solution!
Private Sub cmdRunQuery_Click()
If MsgBox("Would you like to delete?", vbYesNo, "Confirmation") = vbYes Then
Set rstDelete = CurrentDb.OpenRecordset("SELECT * FROM ManComps WHERE [Catalogue Ref] = '" & Component & "'")
rstDelete.Delete
Set rstDelete...