Búsqueda en formulario

tengo un formulario y en el una búsqueda, pero al momento que busca y no encuentra en la base, me manda el error de 2427. Este es el código:

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

El Area_remitente es el campo donde busca de la base de datos BD2013.

Mensaje:

Se ha producido un error '2427' en tiempo de ejecución:

Ha especificado una extensión que no tiene valor.

Lo manda ya sea una letra o palabras completas. Espero y me puedas ayudar