VC6实现在循环体中接收停止消息

举一个数据库查找的例子，在文本框输入文本，点击查找按钮开始查找，再次点击按钮令m_bSearch=FALSE，循环体接收到消息，停止查找。部分代码如下： 

 m_pRecordSet->MoveFirst();
  while(!m_pRecordSet->EOF && sName!=text && m_bSearch==TRUE)
  {
   //接收停止消息
   while(PeekMessage(&msg,NULL,0,0,PM_REMOVE))  
   {  
    TranslateMessage(&msg);
    DispatchMessage(&msg);
   }
   //Retrieve column's value:
   var_value=(m_pRecordSet->Fields->GetItem
    (_variant_t(long(col)))->Value);

   if(var_value.vt!=VT_NULL && var_value.vt!=VT_EMPTY)
    sName=(char*)(_bstr_t)var_value;
    
   m_pRecordSet->MoveNext();
  }