Visual Basic - PROBLEMA CON UNA CONSULTA SQL

HOLA:
TENGO LA SIGUIENTE EXPRESION EN UNA CONSULTA

"Select factura,codigo,descripcion,precio,valor from tbfactura where factura = txtfactura.text"

Data1.refresh

ME DA EL SIGUENTE ERROR

Too few parameters. expected 1

ALGUIEN PUEDE AYUDARME

NOTA:
CUANDO LE CAMBIA LA VARIABLE TXTFACTURA.TEXT POR UN VALOR, FUNCIONA PERFECTAMENTE.

Hola.
El problema es que pones el nombre de la variable como si fuera un literal.
"Select factura,codigo,descripcion,precio,valor from tbfactura where factura = ' " & txtfactura.text & " ' "
Seguro que esto te funciona.

Ahora me da este error

data type mismatch in criteria expression

Proba Asi ..........

"Select factura,codigo,descripcion,precio,valor from tbfactura where factura LIKE ' " & txtfactura.text & " ' "

saludos Christian

ESTE ES EL TEXTO INTEGRO Y ME SIGUE DANDO ERROR

SQL = "SELECT CODIGOPRODUCTO, DESCRIPCION, PRECIO, CANTIDAD,VALOR FROM TBFACTURA WHERE FACTURA LIKE ' " & Val(txtfactura) & "'"
Data2.RecordSource = SQL
MSFlexGrid1.Visible = True
Data2.Refresh

Si el campo factura es numerico debes convertir el valor de txtfactura de la siguiente forma Val(txtfactura.text)