Filtrar flexgrid apartir de combos

[Lalybs]

Buenas, necesito filtrar una lista Peliculas apartir de 3 combos:
1- combo Genero
2- Combo soporte
3-Combo categoria
y lo que hice es lo siguiente:

Private Sub Combocategoria_Click()
Dim RS As New ADODB.recordset
Armar_Lista
sql = "SELECT Peliculas.idpelicula, Peliculas.titulo, Peliculas.director, Peliculas.Cantidad, Categorias.categoria, Generos.genero, Soportes.soporte, Estados.estado FROM Soportes INNER JOIN ((Generos INNER JOIN (Categorias INNER JOIN Peliculas ON Categorias.idcategoria = Peliculas.idcategoria) ON Generos.idgenero = Peliculas.idgenero) INNER JOIN Estados ON Peliculas.idestado = Estados.idestado) ON Soportes.idsoporte = Peliculas.idsoporte where Peliculas.IdGenero=" & Combogenero.ListIndex + 1
RS.Open sql, con, adOpenKeyset, adLockOptimistic, adCmdText
listar
RS.Close
Combocategoria.Enabled = False
End Sub

Private Sub Combogenero_Click()
Armar_Lista
Dim RS As New ADODB.recordset
sql = "SELECT Peliculas.idpelicula, Peliculas.titulo, Peliculas.director, Peliculas.Cantidad, Categorias.categoria, Generos.genero, Soportes.soporte, Estados.estado FROM Soportes INNER JOIN ((Generos INNER JOIN (Categorias INNER JOIN Peliculas ON Categorias.idcategoria = Peliculas.idcategoria) ON Generos.idgenero = Peliculas.idgenero) INNER JOIN Estados ON Peliculas.idestado = Estados.idestado) ON Soportes.idsoporte = Peliculas.idsoporte where Peliculas.IdGenero=" & Combogenero.ListIndex + 1
RS.Open sql, con, adOpenKeyset, adLockOptimistic, adCmdText
listar
RS.Close
Combogenero.Enabled = False
End Sub

Private Sub Combosoporte_Click()
Dim RS As New ADODB.recordset
Armar_Lista
sql = "SELECT Peliculas.idpelicula, Peliculas.titulo, Peliculas.director, Peliculas.Cantidad, Categorias.categoria, Generos.genero, Soportes.soporte, Estados.estado FROM Soportes INNER JOIN ((Generos INNER JOIN (Categorias INNER JOIN Peliculas ON Categorias.idcategoria = Peliculas.idcategoria) ON Generos.idgenero = Peliculas.idgenero) INNER JOIN Estados ON Peliculas.idestado = Estados.idestado) ON Soportes.idsoporte = Peliculas.idsoporte where Peliculas.IdGenero=" & Combogenero.ListIndex + 1
RS.Open sql, con, adOpenKeyset, adLockOptimistic, adCmdText
listar
RS.Close
Combosoporte.Enabled = False
End Sub

Lo que me muestra es una lista de peliculas solo con el filtro por soporte.
en que puede estar fayando el código?