如何通过ADO,将sqlserver数据库某一字段下的值赋给Combobox控件（在线等）

Question

sqlserver 数据库某一字段的值是重复的，要求赋给combobox的值不重复！
希望能给出源代码！谢谢！

Answer 1

Set rs = New Recordset
    rs.Open "SELECT DISTINCT(字段1) FROM 表 WHERE 条件 ORDER BY 字段1", db, adOpenStatic, adLockOptimistic
    
Dim strAddItem As String
    Combo2(0).Clear
    Combo2(0).AddItem "全部客户"
    Do Until rs.EOF
        strAddItem = rs!Name
        Combo2(0).AddItem strAddItem
        rs.MoveNext
    Loop
'DISTINCT(字段1) ************这个就是了

Answer 2

txtsql = "select distinct (客队) from 比赛信息表 where 赛季='" & Trim(ComboSJ.Text) & "' and 赛别='" & Trim(ComboSB.Text) & "' and 主队='" & Trim(ComboZD.Text) & "' order by 客队"
Set mrc = ExecuteSQL(txtsql, MsgText)
    While (mrc.EOF = False)
        ComboKD.AddItem mrc!客队
        mrc.MoveNext
    Wend
    mrc.Close
已经解决！这是我的代码！结帐