Como corrijo el error "Demasiados argumentos para 'Public Overridable Overloads Function'

Estoy haciendo un programa en VBA tratando de ejecutar una consulta con instrucciones desde SQL con el operador LIKE para una búsqueda de parecidos desde una caja de texto.

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

Pero 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'

¿Qué pueda hacer para que esto no me suceda?