Visual Basic - FILTRAR UTILIZANDO UN TEXT, COMO PARAMETRO

ESTOY UTILIZANDO UN SELECT PORQUE JUNTO AL TEXT TENGO UN COMBO DE MANERA QUE:
SELECT COMBO.TEXT
CASE "CODIGO"
FILTRO= "WHERE CODIGO LIKE' " & TEXT1.TEXT & "%' "
CASE "APELLIDO"
FILTRO= "WHERE CODIGO LIKE' "&TEXT1.TEXT&"%'"
END SELECT
ADODC1.RECORSOURCE="SELECT * FROM PACIENTE" & FILTRO
ADODC1.REFRESH
DATAGRID1.REFRESH

QUIERO SABER SI ESTO ESTA BIEN O NO, PORQUE CADA VEZ QUE LO CORRO EN LA TABLA SE QUEDA VACIA, A PESAR DE QUE HAY INFORMACION QUE CUMPLE CON LOS REQUISITOS QUE ESCRIBO, SI ESTO ESTA BIEN ME GUSTARIA SABER QUE OTRO ERROR ESTOY COMETIENDO O EN TODO CASO, QUISIERA SABER OTRA MANERA DE HACERLO

Que tal Pedrito, exactamente no se que es lo que pudiese estar mal en tu código, pero lo que yo hago es poner una caja de texto en la cual presento el recordsource que se intenta generar. De esta forma puedo ver el query que se armo y probarlo directamente en foxpro, access, sql segun la herramienta en la que tengo mi base.
Espero que este pequeño comentario o sugerencia sirva de algo.

Saludos y suerte