谈谈我的思路,如果可以使用进度条那样的控件当然好了,不过我在高级控件里面还没找到。没有的话,第一个好实现。private sub botton_click()docmd.setwarnings falsedim sqlstr as stringlable1.visible=truelable14.caption="system is running ,please wait"sqlstr="create table tablename*******"docmd.runsql sqlstrend sub我觉得第二个问题有点困难,因为我们要判断是不是查询已经成功,或结束。我现在的水平只能这么验证,看看新建立的表是不是已经存在,如果存在,则证明查询结束。可能用OBJECT对象,细节问题我也不清楚了。