Visual Basic - Combo

hola amigos como estan:
deceo utilizar un combo box para hacer filtros como se hace en excel Pero tengo un problema.................... e untilizado este codigo en el evento change de un text y funciona pero no se como hacerlo en un combo_box nose si me puedan ayudar ..........chau
Adocliente.RecordSource = "SELECT *FROM CLIENTES " & _
" WHERE (CODIGO LIKE '" & Txtcod & "%') ORDER BY codigo"
'Adocliente.RecordSource = CRITERIO
Adocliente.Refresh

No sé si es lo que pides, pero creo que podrías ponerlo en el evento click del combo y la select sería:
Adocliente.RecordSource = "SELECT *FROM CLIENTES " & _
" WHERE (CODIGO LIKE '" & combo1.list(combo1.listindex) & "%') ORDER BY codigo"
'Adocliente.RecordSource = CRITERIO

Espero que te sirva. Saludos
Adocliente.Refresh