Я все варианты попробовал, типа этого
- Код: Выделить всё
Private Sub DataCombo1_Click(Area As Integer)
DataCombo1.DataField = "CodaID"
DataCombo1.BoundColumn = "CodaID"
DataCombo1.ListField = "mark"
Set DataCombo1.RowSource = Adodc3
Set DataCombo2.DataSource = Adodc4
End Sub
Private Sub DataCombo2_Click(Area As Integer)
DataCombo1.DataField = "CodaID"
DataCombo2.BoundColumn = "pCodeMark"
DataCombo2.ListField = "pModel"
Set DataCombo1.RowSource = Adodc3
Set DataCombo2.DataSource = Adodc4
End Sub