Visual Basic - Pasar sentencia SQL A CONTROL adodc

hOLA AMIGOS , TENGO EL SIGUIENTE INCOVENIENTE :
programo en Visual basic 6.0 con Access XP

eN MI FORMULARIO TENGO UN CONTROL adodc el cual EN LA PROPIEDAD RECORDSOURCE PUSE LO SIGUIENTE :

SELECT * FROM VENTAS WHERE CODIGO='ZAPATOS'

HASTA AHI FUNCIONA BIEN, PERO EL CODIGO PUEDE SER ZAPATOS, ALIMENTOS,VESTIDOS Y ESTOS SON MOSTRADOS EN UNA CAJA DE TEXTO (text1.text)

entonces para k mi control adodc me muestre solo los registros correspondientes aL CODIGO ESCOGDO he la propiedad del datasource puse:

SELECT * FROM VENTAS WHERE CODIGO='" & Text1.text &"'
(Comillas simples, doble comilla )

y al ejecutar el programa no me sale NADA ni me vota error , que podria estar haciendo mal ayudenme por favor . gracias

seguro te esta jalando el contenido de tu text con algun espacio en blanco puedes hacer esto:
text1.text=trim(text1.text)
luego de eso lo mandas al
sql="SELECT * FROM VENTAS WHERE CODIGO='" & Text1.text & "'"

recuerda q al final es comillas dobles, comillas simples y comillas dobles

Hola amigo gracias por la ayuda pero creo k no me he dejado entender, la sentencia SQL lo pongo dentro del datasource que esta en la ventana propiedades del control adodc, donde no se pone sql="..."
Solo va la sentencia SQL como :
select * from ventas

si lo pongo asi trabaja norma , asi tal como esta.

Pero he notado que cuando lo pongo asi :

select * from ventas where codigo=' " & text1.text &" '

no aparece ni error ni me genera las consultas de esos registros , Y EL MOTIVO ES QUE la sentencia esta buscando en la tabla ventas campo codigo el registro
" & text1.text &" .

Al parecer para pasar el contenido de un text a este control adodc via la propiedad del adodc LAS DOBLES COMILLAS NI EL AMPERSON lo hacen.

Gracias por las sugerencias

Si, pero te faltan un par de comillas dobles, al comienzo de la sentencia y al fina. Y acuerdete del .Refresh.

Suerte