Code
Here's the code for the sub that's giving the error, only happens on some entries though
Private Sub txtWorkPhone_Change()
Dim strSQL, strPhone
If Me.txtWorkPhone.Text Like "(***)" Then
strPhone = Me.txtWorkPhone.Text
strSQL = "Select Distinct WorkPhone, Company from ContactPerson Where...