Visual Basic - Llenar la lista de un combox con consulta

con el resultado de esta consulta
"select Ciudad from ciudades where Cod_estado = "&combo1.text&"

quiero que se me llene la lista de un segundo combox
es decir en el de arriba se seleccionar un estado y en el de abjo solo me apareceran las ciudades de ese estado

Una vez hecha tu consulta, te pongo este ejemplo como si te conectaras con ADO (si te conectas por DAO solamente cambia la forma de llamar la consulta con los recordset)
Dim Rs As ADODB.Recordset
Dim Sql As String
Dim cnbase As ADODB.Connection
Private Sub LlenaCiudades()
Dim Sql As String
Sql = "select Ciudad from ciudades where Cod_estado = "&combo1.text&"
Set Rs = New ADODB.Recordset
If Rs.State = adStateOpen Then Rs.Close
Rs.CursorLocation = adUseClient
Rs.CursorType = adOpenDynamic
Rs.LockType = adLockOptimistic
Rs.Open Sql, cnbase
'Asi llenas un combo
Do While Not Rs.EOF
Combo2.AddItem Rs!Ciudad
Rs.MoveNext
Loop
Combo2.ListIndex = 0
End Sub

No funcion el combo2 no rellena la lista

Fija que valor posee el combo1 cuando haces la consulta ya que si no encuentra un codigo de estado no te va mostrar informacion, si no te funciona esto mandame tu ejemplo a mi correo para verlo mas de cerca y asi poder ayudarte mejor...saludos!!!

Te envie el codigo a tu correo gracias....

te envie el codigo a tu correo....