ACCESSでテキストボックスに入った文字を抽出する

ACCESSのフォームで入力されたテキストを参照して、データを抽出するVBA

private Sub 検索_afterupdate()
　Me.Filter="[顧客名] like '*" & Me!検索 & "*'"
  Me.FilterOn = True
End Sub