Visual Basic - Búsquedas con SQL

Hola.

Estoy intentando realizar una búsqueda con SQL, pero no me funciona.

Private Sub txtBuscarHerma_Change()
Dim Criterios$
If txtBuscarHerma.Text = "" Then Exit Sub

On Error Resume Next
Criterios$ = "Apellidos Like '" + txtBuscarHerma + "*'"
rsConsulta.MoveFirst
rsConsulta.Find Criterios$
If Err.Number Or rsConsulta.BOF Or rsConsulta.EOF Then
Err.Clear
MsgBox "No se ha localizado el Registro", , "Imposible:"
End If
End Sub

Aquí creo el SQL
If CmbConsulta.Text = "Nombre" Then
SQL$ = "SELECT Apellidos AS ' A p e l l i d o s '" _
& "FROM Clientes"
End if

rsConsulta.Open SQL$, cn, adOpenDynamic, adLockOptimistic

hola... que tal si lo intentas hacer en el evento keypress
ya que el evento change hace la busqueda cada ves que cambia el contenido de el control, en el evento keypress seria asi

if keyascii=13 then
ejecutas el codigo que tienes anteriormente
end if

de otra forma no creo que lo haga...amenos que lo que quieras es que te vaya mostrando los resultados por cada letra que escrivas(consulta por letra) en un list u otro elemento.. bueno, si tienes alguna duda hechame un grito y trataremos de resolver este problema