strSQL="select distinct A from mytable where A is null"
set rst=conn.execute(strSQL)
然后循环填你的控件

select distinct companyname from Customers where companyname is not  null

------------------
select distinct 字段A from 表名 where 字段A is not   null

rs.open "select distinct field from table where field is not null",……
do while not rs.eof
  combo1.additem rs.field(0)
  rs.movenext
loop

up

不只一个字段，怎么利用一个过程把它增加到不到的combo中，

我一直不怕用最恶毒的心态来审视自己。上帝给了我高尚的灵魂，却又给了我恶毒的思想。在生活中做不了坏人，就在网上做个恶棍吧，做个恶棍吧！

我一直不怕用最恶毒的心态来审视自己。上帝给了我高尚的灵魂，却又给了我恶毒的思想。在生活中做不了坏人，就在网上做个恶棍吧，做个恶棍吧！

我一直不怕用最恶毒的心态来审视自己。上帝给了我高尚的灵魂，却又给了我恶毒的思想。在生活中做不了坏人，就在网上做个恶棍吧，做个恶棍吧！

rs.open "select distinct field from table where field is not null",……
do while not rs.eof
  combo1.additem rs.field(0)
  rs.movenext
loop

rs.open "select distinct field from table where field is not null",……
do while not rs.eof
  combo1.additem rs.fields(0)
  rs.movenext
loop