vb 如何将ACCESS某列的数据导入Combo1下拉框中,谢谢

导入表a中的name字段
recordset.cursorlocation = aduseclient
recordset.open "select a.name from a" ,connection
if recordset.recordcount >0 then
recordset.movefirst
do until recordset.eof
combo1.additem recordset.field(0)
recordset.movenext
loop
end if
recordset.close

有很多方法,最简单的就是通过DAO或ADO控件,绑定该数据库,再把控件中的该字段数据逐个添加到Combo1下拉框中