Visual Basic - Busqueda

Hola a todos/as
Lo primero agradeceros la ayuda recibida, pues aunque no hago muchas preguntas si que muchas dudas son solucionadas simplemente leyendo y buscando en el foro.
Bueno mi problema es el siguiente tengo una sentencia para buscar en un BD, hace todo lo que le digo pero no me encuntra el dato que busco, os pongo la sentencia para que alguien me oriente, por mas vueltas que doy no veo el error.
Gracias

Private Sub CmdBuscar_Click()
Buscado = InputBox("Por favor, teclee el nombre de la Especialidad a buscar :")
Nombre = Buscado
Buscado = "[Esp_Nombre] like ' * " & Nombre & " * '"
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst (Buscado)
If Data1.Recordset.NoMatch = True Then
MsgBox ("La especialidad no se encuentra")
Data1.Recordset.MoveFirst
End If
End Sub

Creo que el problema está en los espacios entre el asterisco y las comillas. No dejes separación entre ellos:

like '*" & Nombre & "*'"

MUCHAS GRACIAS.
Natalia tenias razón el problema eran los espacios
Un saludo