- Код: Выделить всё
- Combo1.AddItem rs.Fields("стоблец")
 rs.MoveNext
Выводит только первую запись...

Combo1.AddItem rs.Fields("стоблец")
rs.MoveNext


Set DataCombo1.RowSource = rs
        DataCombo1.ListField = "столбец 1" - то что будет видно в комбо
        DataCombo1.BoundColumn = "еще-что-нить например id" - скрытое полеСейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4