Datos de combo a combo

[Sergio18]

Acabo de hacer esto en el form y no se porque solo me sale Alcorcon como ciudad
te lo dejo aqui

Código vb:

Set rsCiudad2 = New Recordset
With rsCiudad2
.Open "select ciudad from ciudad2", cnPrueba, adOpenDynamic, adLockOptimistic
End With
With rsCiudad2
Combo1.AddItem rsCiudad2.Fields(0)
rsCiudad2.MoveNext
End With
 

saludos