Consulta con comando "Like" a través de un textbox

Estoy programando en VBA tratando de ejecutar una consulta con instrucciones desde SQL con el comando LIKE para búsqueda de parecidos desde una caja de texto.

La consulta se hace automática por Visual. Lo que se necesito es un búsqueda con LIKE, para que arroje resultados similares a la palabra que se introduzca.
La única forma en que no manda error en el generador de consultas es como se muestra en la imagen.

Una vez que se llama la función de la consulta por código:

Me. LibrosTableAdapter1. Cons(Me. LibrosDataSet. Libros, TxtDato.Text)

Manda un error en la caja de texto donde se va a obtener el dato para la consulta.

Error: Demasiados argumentos para 'Public Overridable Overloads Function Cons(dataTable As LibrosDataSet. LibrosDataTable) As Integer'