Visual Basic - Fallo en consulta

Hola.

Estoy haciendo una consulta con ADO y no sé porqué falla. La variable Criterios$ recibe las variables, pero no encuentra el registro. Y ya lo he probado todo.


num$ = txtBuscarHerma + "*"

Criterios$ = rsConsulta.Fields.Item(0).Name & " Like " & num$

rsConsulta.MoveFirst
rsConsulta.Find Criterios$

Gracias y un saludo.
Luis

primero tenes que tener en cuenta, que el comodin * en algunas bases de datos no se utiliza sino que se utilizar el %,
Tambien
proba poniendolo al final y al principio
num$ = "*" + txtBuscarHerma + "*"
rsConsulta.Fields(0) & " Like " & num$

si aun asi no te funciona decilo talvez podemos ayudarte.

Hola.

Sigue sin funcionar.
El recordset está creado con un SQL con campos alias.

SQL$ = "SELECT Profesion As 'P r o f e s i ó n ',Apellidos AS ' A p e l l i d o s '," _ etc.....

Y criterios$ recibe bien las variables, pero lo que falla es el alias del campo.

num$ = txtBuscarHerma + "*"

Criterios$ = rsConsulta.Fields.Item(0).Name & " Like " & num$

rsConsulta.MoveFirst
rsConsulta.Find Criterios$

Al ejecutar Criterios es igual a

Criterios$ = "'P r o f e s i ó n ' LIKE *c*"

Aquí debe estar el fallo, pero ¿Cual?

Prueba esto :

num$ = txtBuscarHerma + "%"

Criterios$ = rsConsulta.Fields.Item(0).Name & " Like '" & num$ & "'"

Tampoco funciona.

Ahora el valor de criterios$ es:

" ' P r o f e s i ó n ' LIKE ' C% ' "