Private Sub ComboBox2_Change() If ComboBox1.ListCount = 0 Then ComboBox1.Clear strSQL="select aa from table1 where remark='" & ComboBox2 & "' order by aa" rs.Open strSQL, cn Do While Not rs.EOF ComboBox1.AddItem rs("aa") Loop End IfEnd Sub