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

Dim con As New ADODB.Connection
Dim rspeli As ADODB.Recordset
Dim rshora As ADODB.Recordset
Dim sql As String

Private Sub DataCombo1_Click(Area As Integer)

Set rspeli = New ADODB.Recordset
rspeli.Open "pelicula", con, adOpenStatic, adLockOptimistic, adCmdTable
Set rshora = New ADODB.Recordset
sql = "SELECT horario.hora FROM horario " & _
" (horarios_pelicula INNER JOIN Pelicula ON horarios_pelicula.id_pelicula=Pelicula.id_pelicula) ON horario.id_hora=horarios_pelicula.id_hora" & _
"Where pelicula.nombre 'LIKE ' & Combo1.Text & '';"
rshora.Open sql, con, adOpenStatic, adLockOptimistic, adCmdText
Combo2.Clear
Do While rshora.EOF = False
Combo2.AddItem rshora!hora
rshora.MoveNext
Loop
rspeli.Close
rshora.Close
End Sub