有一mdb库中包含一个人事表格，其中“部门”字段的取值是固定的几种可能，怎样通过代码

Question

查出“部门”字段有哪几种可能的值，并将其传送给list控件啊？？

Answer 1

select distinct 部门 from 表 
是这样吗？

Answer 2

rs.open("select distinct 部门 from 表",conn)
do not rs.eof
listbox1.additem rs.field("部门")
loop

Answer 3

dim Con as new adodb.connection
dim Rs as new adodb.recordset
Con.open 你自己的连库语句；
Rs.open "Select distinct 部门 from 表"
while not Rs.eof 
 list1.additem Rs("部门")
 Rs.movenext
wend

Answer 4

对不起，少写了些东西啊！呵呵~~
dim Con as new adodb.connection
dim Rs as new adodb.recordset
Con.open 你自己的连库语句；
Rs.open "Select distinct 部门 from 表",Con,1,3
while not Rs.eof 
 list1.additem Rs("部门")
 Rs.movenext
wend

Answer 5

dim Con as new adodb.connection
dim Rs as new adodb.recordset
Con.open 你自己的连库语句；
Rs.open "Select distinct 部门 from 表",Con,1,3
while not Rs.eof 
 list1.additem Rs("部门")
 Rs.movenext
wend