Visual Basic - vb6 mysql dos combobox

hola a todos... tengo un problema hace un par de dias que no he podido resolver.. necesitoen VB6 con Mysql hacer 2 combox combinados..uno saca los nombres de ciudades de una tabla.. y el 2 saca los nombres de las comunas que estan dentro de la ciudad elejida...hasta ahora estoy sacando los datos de ambas tablas.. pero necesito que me haga la seleccion que cuando elija una ciudad me muestre solo mas comunas que pertenecen a esa ciudad.. obviamente las tablas esta enlazadas con una FK... les dejo la siguiente info haber si me pueden hechar una mano..

cod desarrollado hasta ahora.. funcionando en rescatar valores tabla:
--------------------------------------------------------------------------------
Private Sub Combo1_DropDown()
Combo1.Clear
Set cnn2 = New ADODB.Connection
Set rst2 = New ADODB.Recordset

cnn2.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & "127.0.0.1" & ";" _
& " DATABASE=" & "xxx" & ";" _
& "UID=" & "root" & ";PWD=" & "xxxx" & "; OPTION=3"
cnn2.Open
rst2.Open "SELECT cod, nombre FROM ciudades", cnn2, adOpenDynamic, adLockOptimistic

rst2.MoveFirst
While Not rst2.EOF
Combo1.AddItem (rst2.Fields("nombre")) ' mete los valores nombre a la lista del combo
rst2.MoveNext ' muevo el puntero al siguiente registro

Wend

rst2.Close
cnn2.Close
Set cnn2 = Nothing
Set rst2 = Nothing
End Sub
-------------------------------------------------------------------

aqui guardo el valor del la eleccion (click)
Public Sub Combo1_Click()
ciudadex = Combo1
End Sub

---------------------------------------------------------------------
y ahora tengo que hacer que me busque en el combobox2 las comunas relacionadas con ciudadex

Private Sub Combo2_DropDown()
Dim sBuscar As String
Combo2.Clear

Set cnn2 = New ADODB.Connection
Set rst2 = New ADODB.Recordset

cnn2.Open
sBuscar = "SELECT cod FROM ciudades WHERE nombre LIKE '" & ciudadex & "'"?????????????????????
MsgBox ("cod es:" & sBuscar)????????

End Sub
------
tablas
ciudades: COD, NOMBRE
comunas: COD , NOMBRE, CIU_COD (foreing key de ciudades)
-------
eso es lo que no he logrado hacer.. se los agradeceria un monton.
gracias y excelente foro.