Access: Suche im Formular indem Felder einer Tabelle sind

Private Sub txt_suche_AfterUpdate()

     Dim strFilter As String
     Dim strVergleichsausdruck As String
     strVergleichsausdruck = Nz(Me!txt_suche, "")  
     If Len(strVergleichsausdruck) > 0 Then
         strFilter = "ID LIKE '" _  
             & strVergleichsausdruck & "'"  
     End If
     With Me![id]
         .Filter = strFilter
         .FilterOn = True
     End With
   

End Sub