帮小弟我看看这段为啥存在资源泄露

bool GetRecord::GetNext()
    {
        Error=0;
        _variant_t RecordAffected;
        
        try
        {
            hr=RecordSet.CreateInstance("ADODB.Recordset");
            AddLog("test0");//写日志
            RecordSet->Open("waitjudgeEx",_variant_t((IDispatch *)Connection, true),ADODB::adOpenDynamic,ADODB::adLockPessimistic,ADODB::adCmdStoredProc);
            if(RecordSet->adoEOF)
            {
                RecordSet->Close();
                RecordSet.Release();
                RecordSet = NULL;
                AddLog("test1");
                return false;//没有记录
            }
            AddLog("test2");
            SubmitID=(char*)(_bstr_t)RecordSet->GetCollect("提交号");
            ProblemID=(char*)(_bstr_t)RecordSet->GetCollect("题号");
            TotalTimeLimit=(long)RecordSet->GetCollect("zsx");
            CaseTimeLimit=(long)RecordSet->GetCollect("时限");
            MemoryLimit=(long)RecordSet->GetCollect("内存限制");
            MemoryLimit*=1024;
            Language=(short)RecordSet->GetCollect("语言");
            strcpy(SourceCode,(char*)(_bstr_t)RecordSet->GetCollect("源码"));
            SourceFolder=WorkDir+SubmitID;
            SourceFile=SourceFolder+"\\Main."+LanguageExtention[Language];
            memset(&stPipe,0,sizeof(stPipe));
            stPipe.bInheritHandle=TRUE;
            stPipe.lpSecurityDescriptor=NULL;
            stPipe.nLength=sizeof(SECURITY_ATTRIBUTES);
            CreateDirectory(SourceFolder.c_str(),&stPipe);
            HANDLE hSourceFile=CreateFile(SourceFile.c_str(),
                        GENERIC_WRITE,
                        0,
                        &stPipe,
                        CREATE_NEW,
                        80,
                        0);
            ULONG temp;
            WriteFile(hSourceFile,SourceCode,strlen(SourceCode),&temp,0);
            CloseHandle(hSourceFile);
            RecordSet->Close();
            RecordSet.Release();
        }
        catch(_com_error e) //异常处理
        {
            char s[256];
            sprintf(s,"%s",(char*)(e.Description()));
            throw s;
        }
        return true;
    }