Automatic Filter In Ms Access

Private Sub txtCustomerName_Change()
    Dim strFilter As String

    strFilter = Me.txtCustomerName.Text

    Me.frmCustomers_sheet.Form.Filter = "CustomerName LIKE '*" & strFilter & "*'"
    Me.frmCustomers_sheet.Form.FilterOn = True
End Sub