有关ADO的一个小问题

Question

我有一个表A 如图:
客户     机型     订单     　 交期     　日期
1      　a       　2       　　3     　　　4
2      　b　　　 　3　       　5     　　　6
3      　c
4      　d
5      　e
6      　f
6      　a　       5       4      8
上面 客户 、机型  、订单、交期、日期　为表里的字段，记录我就不用一个个的例举了
下面的是记录
我用ＡＤＯ连接ＡＣＣＥＳＳ数据库。
我想把机型下面的所有不同的记录（如a、b、等）遍历一次　放到cmb1.additem下面。
类型字段的刻录有重复的
希望能给出代码！　谢谢

Answer 1

select 机型 from 表A group by 机型

Answer 2

select distinct 机型 from table

Answer 3

Set rs = cn.Execute("select distinct 机型 from table Order By 机型")Combo1.Clear
Do Until rs.EOF
    Combo1.AddItem rs!机型
Loop

Answer 4

Set rs = cn.Execute("select distinct 机型 from table Order By 机型") Combo1.Clear 
Do Until rs.EOF 
    Combo1.AddItem rs!机型 
rs.MoveNext'没有这句就是死循环
Loop 

Answer 5

Set rs = cn.Execute("select distinct 机型 from table Order By 机型") Combo1.Clear 
Do Until rs.EOF 
    Combo1.AddItem rs!机型 
　　　rs.MoveNext
Loop 
是没错，可是重复的内容也在cmb1.additem里了
怎么解决这个问题呢

Answer 6

Set rs = cn.Execute("select 机型 from 表A group by 机型") Combo1.Clear 
Do Until rs.EOF 
    Combo1.AddItem rs!机型 
　　　rs.MoveNext 
Loop 

Answer 7

distinct关键词搜索到的东西不重复