vba 点击按钮然后执行查询，查询时时弹出提示信息:正在查询中请稍候，查询结束后提示查询结束信息

vba 点击按钮然后执行查询，查询时时弹出提示信息:正在查询中请稍候，查询结束后提示查询结束信息 如何设置求完整过程，下面是查询代码需要怎么改才能做到：
Private Sub Command19_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "查询更新BCCH", , acReadOnly
DoCmd.SetWarnings False
DoCmd.OpenQuery "查询1", , acReadOnly
DoCmd.SetWarnings False
DoCmd.OpenQuery "ho_par", , acReadOnly
DoCmd.SetWarnings False
DoCmd.OpenQuery "pc_par", , acReadOnly
DoCmd.SetWarnings False
DoCmd.OpenQuery "adj_par", , acReadOnly
End Sub

相关了解……