Hola Mira veo que te refires a un codigo, imagino que es un numero entero y si es asi es por eso es que tienes el error.
Veras en la cadena SQL espesificamente en la parte del WERE debes escribir entre comillas simples una variable siempre que sea de tipo texto para que se pueda efectuar correctamente la comparacion, pero para comparar un numero entero no es necesario ningun caracter especial.
en el primer caso Text1.text es tu variable tipo string, texto ó cadena como sea.
y en el segundo caso estas comparando un codigo, que es numero entero.
Prueba con lo siguiente:
Código:
K = " SELECT * FROM eysproducto WHERE codigo_articulo LIKE " & Val(Text1.Text) & " and descripcion_articulo LIKE " & Val(Text1.Text) & " and fecha_factura between #" & Fec1 & "# AND #" & Fec2 & "# ORDER BY fecha_factura"
Aqui una cita de un articulo en VB6.us que dice casi lo mismo que pongo arriba
Cita: Note: In the WHERE clause, numeric literals have no delimiters, string literals are delimited by single quotes (') (although Access will also accept double quotes(")), and date delimiters are delimited by the number sign (#). Delimiting dates with the number sign is specific to Access; most other DBMS' use the single quote as the date delimiter.
Veo que tu usas un asterisco tambien ( '*" & variable & "*' ), no se para que es, me podrias explicar para que lo usas.