求助：关于一个连接Access数据库模态对话框程序卸载的问题。

czx1234567

我一个ARX程序在输入命令之后，弹出一个CRecordSet类连接Access数据库模态对话框，可读取数据库中的数据进行数学运算，以上一切正常，但当我进行手动卸载该程序的时候却导致CAD无响应，如果直接关闭CAD程序，在关机的时候系统会弹出结束程序对话框，相关代码如下：
    不知我程序当中有会什么没完善的地方，救高手帮忙！
BOOL CMyDialog::OnInitDialog()
{
CDialog::OnInitDialog();
m_pRs.Open();
while(!m_pRs.IsEOF())
{
  CString OD =m_pRs.m_OD;
  m_COMBO.AddString((LPCTSTR)OD);
        m_pRs.MoveNext();
}
return TRUE;  // return TRUE  unless you set the focus to a control
}
.......
.......
void CMyDialog::OnClose()
{
// TODO: 在此添加消息处理程序代码和/或调用默认值
m_pRs.Close();
CAcUiDialog::OnClose();
DestroyWindow();
}

void CMyDialog::OnBnClickedExit()
{
// TODO: 在此添加控件通知处理程序代码
m_pRs.Close();
CAcUiDialog::OnClose();
DestroyWindow();
}

BOOL CloseDialog()
{
m_pRs.Close();
if (pDialog == NULL)
{
  return TRUE;
}
BOOL bRet = pDialog->DestroyWindow();
if (bRet)
{
  pDialog = NULL;
}
return bRet;
}

void CMyDialog::UnloadApplication(void)
{
acedRegCmds->removeGroup(_T("CZXWan"));
CloseDialog();
}

void CMyDialog:PostNcDestroy(void)
{
delete this;
if (pDialog != NULL)
{
  pDialog = NULL;
}
CAcUiDialog:PostNcDestroy();
}