Hola
A primera vista, estas utilizando el DataCombo como un combo normal, en ese caso (combo normal) te faltaría añadir el .AddItem
Código:
Do While Not .EOF
dtmodelo.AddItem .fields(0)
.MoveNext
P.D.: El ejemplo que te pongo es para el caso de un
combo normal, NO para el datacombo. Con el datacombo no tienes que recorrer todo el recordset.
--Saludos--