Combobox如何加载SQL数据库中的数据

Question

小弟在做一个毕业设计，Combo想动态的加载SQL数据库中的序号。找了一些资料 总是会出现一些问题。敢问，那位大哥清楚这个东西。应该是Combo比较常用的一种方式。  呵呵~   但我就是搞不定呀~ 先谢过了~

Answer 1

sSQL = 'Select Id From Table'
Ors.open sSQL,oConnWhile not ors.Eof
    Combox1.AddItem(oRs.Filed("ID").value)
    oRs.MoveNext
Wend

Answer 2

Combo1.Clear
    strSql = "SELECT DISTINCT field FROM table"
    Set rst = ExecuteSQL(strSql, msgText)
    If Not (rst.EOF) Then
        For i = 0 To rst.RecordCount-1
            Combo1.AddItem rst.Fields(0)
            rst.MoveNext
        Next
    End If
    rst.Close