Carlo Navarro Rojas respondió:
Rs. Open "SELECT * FROM tu_tabla order by campo asc", cn, adOpenDynamic, adLockOptimistic While Not rs.EOF Combo1. AddItem rs. Fields("campo") Rs. MoveNext Wend Primero debes cargar el recordset con la consulta a la base de datos y apuntando a la...