title: I keep on getting an error 13 type mismatch error, How can I get it out?
body: <p>In Access 2010 I am trying to create a search box for a table of contacts on a form.</p>
  
  <p>Here is my code:</p>
  
  <pre class="lang-vb prettyprint-override"><code>Private Sub Command119_Click()
  On Error GoTo Command119_Click_Err
  
  If (Eval("[Forms]![frmTitlePage]![SearchBox] Is Null")) Then
      ' Clear Filter when search box empty
      DoCmd.RunCommand acCmdRemoveFilterSort
  End If
  ' Handle "'s in search
  TempVars.Add "strSearch", Replace(Forms!frmTitlePage!SearchBox, """", """""")
  ' Build the Filter
  TempVars.Add "strFilter", "([Last Name] Like "" * " &amp; [TempVars]![strSearch] &amp; " * "" )"
  TempVars.Add "strFilter", TempVars!strFilter &amp; " OR ([First Name] Like "" * " &amp; [TempVars]![strSearch] &amp; " * "" )"
  DoCmd.ApplyFilter "", TempVars!strFilter, ""
  TempVars.Remove "strFilter"
  TempVars.Remove "strSearch"
  
  
  Command119_Click_Exit:
  Exit Sub
  
  Command119_Click_Err:
  MsgBox Error$
  Resume Command119_Click_Exit
  
  End Sub
  </code></pre>
  
  <p>I am obviously horrible at this coding so any additional help to clean this search tool up would help tremendously.</p>