if de1.rscmd.state<> adstateclosed then
de1.rscmd.close
end if
de1.commands("cmd").commandtext="select ....."
de1.rscmd.open
de1.rscmd.movefirst
combo.clear
for i =1 to de1.rscmd.recordcount
combo.additem de1.rscmd.fields("...")
de1.rscmd.movenext
end for
combo.listindex = 0