Visual Basic - mostrar datos

hola a todos necesito ayuda urgente por favor ayudenme ...........
lo que pasa es que quiero en en un list
me muestre una categoria que haciendolo
clic en una categoria me muestre otras subcategorias de mi base en un list ejm
A a1 a2 a3
B b1 b2 b3
C c1 c2 c3
D d1 d2 c4
gracias por su ayuda

Private sub Lista1_Click()
dim rs as new adodb.recordset
rs.open "select descripcionsubcategoria from subcategorias inner join categorias on categorias.codcategoria=subcategorias.codcategoria where descripcioncategoria='" & lista1.text & "')","dsn=miodbc;uid=admin;",3,1,1
lista2.clear
do until rs.eof
lista2.additem rs("descripcionsubcategoria").value
rs.movenext
loop
end sub