combobox的问题

Question

sql = " select distinct country from add1"
Set rs = conn.Execute(sql)
While Not rs.EOF
   Combo1.AddItem rs!country
   rs.MoveNext
Wendsql = " select distinct ontime from add1"
Set rs = conn.Execute(sql)
While Not rs.EOF
   Combo2.AddItem rs!ontime 
   rs.MoveNext
Wendsql = " select distinct men from add1"
Set rs = conn.Execute(sql)
While Not rs.EOF
   Combo3.AddItem rs!men
   rs.MoveNext
Wend