Visual Basic - Datacombo solo me muestra un dato

he hecho anteriormente esto con combobox me muestra las ciudades. ahora lo quiero hacer con un datacombo pero no se como adicionar los elementos por favor una ayudadita. corriendolo asi como esta me sale el nombre de la segunda ciudad un poco raro por que me deberia salir el nombre de la primera? o no? .acaso estan enlazados. por que no me muestra la lista de todas las ciudades

Public Sub cargaCiudades()
Dim rsciudades As New ADODB.Recordset
ciu.Create ("")
Set rsciudades = New ADODB.Recordset
Set rsciudades.DataSource = ciu.consultar()
Set conexion = New ADODB.Connection
conexion.Open "provider=sqloledb;user id=sa;password=sa;initial catalog=Marvi;data source='" & (localhost) & "'"
If rsciudades.State = 1 Then rsciudades.Close
rsciudades.Open "SELECT * FROM Marvi_ciudad", conexion, 3, 3
Set dcmbllegada.DataSource = rsciudades
''Do While rsciudades.EOF = False
With dcmbllegada
.BoundColumn = "ciudad_nom"
.ListField = "ciudad_nom"
.DataField = "ciudad_nom"
End With
rsciudades.MoveNext
''Loop
End Sub