大量数据插入时，弹出窗体不能保持在最上

当ACCESS执行大数据插入时，当前弹出窗体不能在最上面。
例如，在窗体（已设置为弹出窗体）运行如下：
docmd.setwarnings false
docmd.runsql "insert into 表1(字段1,字段2) select 表2.字段1,表2.字段2 from 表2 where 表2.字段1 >100000"
docmd.setwarnings true
上面的插入语句通常都有10万条左右的记录，在执行时，这个弹出的窗体会消失，实际在最底下，
需要最小化ACCESS主窗体才能看见。
有什么方法在插入大量记录时，可以保持窗体在最上。
请各位帮忙支个招，谢谢！