Visual Basic - error en sentencia sql

Hola, cómo puedo comparar un campo de una bd con una variable o una caja de texto?
mi sentencia esta asi

vtas.RecordSource = "select * from ventas WHERE fecha = ' " & dtfecha & " %' "

y me marca error en la sentencia sql

Proba con esto tiene que andar yo lo utilizo y funciona....

"Select * From ventas where (fecha like '" & Cdate(Text1.Text) & "')"

Cualquier cosa consultame...

Tambien lo que puedes hacer es Format(dtfecha , "dd/mm/yyyy")
o con el formato que desees la fecha.

vtas.RecordSource = "select * from ventas WHERE fecha = ' " & dtfecha & "'"