Underlig manglende kørsel af VBA-kode

Har lavet en lille test-db
én tabel
én forespørgsel
to formularer ( main og sub )

på main er der en knap ( cmb_search) der VIRKER med denne kode

Private Sub cmb_search_Click()
Me.results.Requery
End Sub

-----------------------------
men hvorfor pokker kan jeg ikke kalde selvsamme kode via nedenstående, der køres på KeyDown i event på textboksen ???
-----------------------------
Private Sub searcher_001_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyDelete Then
    MsgBox "Du trykkede på Delete"
  Else
    MsgBox "OK"
Me.results.Requery

  End If
End Sub

---------------------

mvh martens