ado 调用后内存释放的问题，请问下面的代码执行完后，内存是否已经完全释放？

m_bConnected = false;
m_pConnection = NULL;
m_pRecordset = NULL;
m_pCommand = NULL;::CoInitialize(NULL);
_ParameterPtr param=null;
_variant_t  vtEmpty (DISP_E_PARAMNOTFOUND, VT_ERROR);
//初始化记录集指针
m_pRecordset.CreateInstance(__uuidof(Recordset));
m_pRecordset->putref_ActiveConnection(m_pConnection);
m_pRecordset->put_CacheSize(5000); 
m_pRecordset->PutLockType(adLockReadOnly);
m_pRecordset->PutCursorType(adOpenStatic);
//初始化命令指针
m_pCommand.CreateInstance(__uuidof(Command));
m_pCommand->ActiveConnection =m_pConnection;
m_pCommand->CommandType= adCmdStoredProc;
m_pCommand->CommandText="insertzltable_proc";
//创建input参数
param=m_pCommand->CreateParameter("",adVarChar,adParamInput,strzlmc.GetLength()+1,(_variant_t)strzlmc);
m_pCommand->Parameters->Append(param);
param=m_pCommand->CreateParameter("",adVarChar,adParamInput,sizeof(long),(_variant_t)strzjs);
m_pCommand->Parameters->Append(param);
long tmp;
tmp=m_pCommand->Parameters->GetCount();
m_pCommand->Execute(NULL,NULL,adCmdStoredProc);
strRet +=(_bstr_t)m_pCommand->Parameters->Item[(short)49]->Value;

//释放
m_pCommand.Release();
m_pRecordset.Release();
m_pConnection.Release();
param.Release();
::CoUninitialize();