Dcount in VBA

Habe hier einen kurzen Code zum Filtern und würde hier gerne eine "Fehlermeldung" ausgeben lassen, wenn die eingegebene ID nicht in der Tabelle vorhanden ist. Ein Kollege hat mir geraten dies mit Dcount zu versuchen, woran ich kläglich gescheitert bin.


Private Sub CmdFilter_Click()
Dim FilterID As Long
FilterID = InputBox("Bitte geben Sie den Adressat an: ")
Me.Filter = "Adressat = " & FilterID
Me.FilterOn = True
End Sub

Dim FilterID as Long
FilterID = InputBox("Bitte geben Sie den Adressat an: ")  
if DCount("[Adressat]","DeineTabelle","[Adressat] = " & FilterID) > 0 then  
   Msgbox "Adressat gefunden"  
Else
   Msgbox "Kein Adressat mit der ID gefunden"  
End if

DCount("[Adressat]","DeineTabelle","[Adressat] = '" & FilterID & "'")