为什么没有及时显示？

我有一段程序，是从数据库中进行查询，但较费时，我想在状态栏中显示“正在查询，请稍候”，
private sub cmd_chick()
  stbar.text="正在查询，请稍候"
  以下为一段较费时的查询语句
  .......
  stbar.text="查询结束"
end sub
但直到查询结束状态栏才显示“正在查询，请稍候”,请各位帮助，有没有好的方法，多线程暂不考虑(主要考虑稳定性)。