- Код: Выделить всё
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM MainTable блалала", cnn, adOpenStatic, adLockReadOnly
Set DataCombo1.RowSource = rs
DataCombo1.DataField = "ID"
DataCombo1.ListField = "Description"
потом в клике другой кнопки:
Set rs = Nothing
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM MainTable WHERE другой запрос", cnn, adOpenStatic, adLockReadOnly
Set dcbConstraintType.RowSource = rs
dcbConstraintType.DataField = "ID"
dcbConstraintType.ListField = "Description"
и в том и в другом случае в списке появляется все, что и должно появляться, но во втором случае не могу ничего выбрать в том списке, тогда как в первом случае все нормально.