Hi, this has been very helpful and works a dream until I search for a name that doesn't exist.  for example, I have no customers with the letter 'x' in their name; when I type an 'x' I get a run time error 2185, which highlights my last piece of code.

my code is

Private Sub SearchBox_Change()
    Me.RecordSource = "SELECT * FROM CustomerT " & _
        "WHERE " & _
            "FirstName LIKE ""*" & SearchBox.Text & "*"" OR " & _
            "LastName LIKE ""*" & SearchBox.Text & "*"" OR " & _
            "CustomerCode LIKE ""*" & SearchBox.Text & "*"""
    SearchBox.SetFocus
    SearchBox.SelStart = Len(SearchBox.Text)
End Sub

Any suggestions where I am I going wrong would be a great help.

Thanks