Error (2427) access en búsqueda cuando no encuentra algo

este es el código que puse en una búsqueda, pero me marca error cuando no encuentra el texto buscado (error 2427)

espero y me puedan ayudar a resolver el problema.

Gracias, espero respuesta pronta

Private Sub Comando18_Click()
'Busca Remitente registros 2013
Dim Buscar As String: Buscar = _
InputBox("Remitente a Buscar", "Búsqueda")
If Buscar = "" Then
Exit Sub
Else
RecordSource = "SELECT * FROM BD2013 " _
& " WHERE [Area_remite] LIKE '" & "*" & Buscar & "*" & "'"
If Area_remite <> "" Then
MsgBox "Encontrado"
Else
DoCmd.Close
DoCmd.OpenForm "Registro2013"
MsgBox "No Encontrado"
End If
End If
End Sub