ADO数据库编程中内存泄漏的问题，请求指点

[god_sun]

CADOConnection::CADOConnection ()
{ 
    m_Con.CreateInstance("ADODB.Connection");
    m_cmmd.CreateInstance(__uuidof(Command));    
}
bool CADOConnection::Open (char *acConnStr)
{
		try
		{
			m_Con->Open (acConnStr, "", "", adModeUnknown);
		}
			catch (_com_error &e)
		{
			CString errormsg;
			errormsg.Format ("连接数据库出错!错误代码: %s", e.ErrorMessage ());
			AfxMessageBox (errormsg);
			return FALSE;	
		}
	m_cmmd->ActiveConnection = m_Con;
	m_cmmd->CommandType = adCmdStoredProc;
	return true;
}

这是线程里的部分内容：
pAdCn 是我建的一个ADO类的对象，现在我是在连接的状态下一直运行我work函数

if (pAdCn->Open (xxxx))  //已经成功连接
{
    while (1)
    {
       pAdCn->work(); //这个函数里一直涨，过1分钟左右就涨4k(也是个大概值）。怎么解释！，没法解决了吗?ps:执行成功
       Sleep (10000);
    }
}


BOOL CADOConnection::work()
{
    if (m_Con == NULL)
        return NULL;
    try
    {        
        m_cmmd->CommandText=_bstr_t(_T("AAAAA"));
        m_cmmd->Parameters->Refresh();
        m_cmmd->Parameters->Item[_variant_t (_bstr_t ("id"))]->Value=_variant_t ((long)33);           
        m_cmmd->Execute (NULL, NULL, adCmdStoredProc);  
        return 1;
    }    
    catch (_com_error &e)
    {
        AfxMessageBox (e.ErrorMessage ());
        return 0;
    }
    
}

[god_sun]

竟然没有人知道～～

[god_sun]

整个csdn无人解答！

[xalangying]

请发到VC版去吧

[god_sun]

tmd 管理员该我帖子标题。 vc没人回答
只能发这里