有关创建XML文件的一个错误，大家一起来讨论一下，请教高手指点

我用了如下方法创建了一个XML文件，但是每次在对话框点GENERATE的时候，都会弹出一个Runtime Error的错误。希望大家能给点指点。感觉我的程序是正确的，不太理解。我也再调试中。（我还是新注册的，分不多，在这里给大家道歉）1.添加在App类的InitInstance函数里面加入如下代码：  // Com口初始化 
 AfxOleInit(); 2.在StdAfx.h中引入动态链接库 MSXML.DLL(C:\windows\system32\msxml4.dll)  #import  < msxml4.dll > 3.双击Generate按钮，在消息处理函数中添加如下代码： 
void CLichenDlg::OnGenerate() 
{
// TODO: Add your control notification handler code here
UpdateData(TRUE);
MSXML2::IXMLDOMDocumentPtr pDoc; 
MSXML2::IXMLDOMElementPtr  xmlRoot ; 
// 创建DOMDocument对象 
HRESULT hr  =  pDoc.CreateInstance(__uuidof(MSXML2::DOMDocument40)); 
if ( ! SUCCEEDED(hr)) 
{  
MessageBox( " 无法创建DOMDocument对象，请检查是否安装了MS XML Parser 运行库! " ); 
return  ;
}  
// 根节点的名称为Book
// 创建元素并添加到文档中 
xmlRoot = pDoc -> createElement((_bstr_t) " Book " );
// 设置属性 
xmlRoot -> setAttribute( " id " ,( const char*)m_strId);
pDoc -> appendChild(xmlRoot);
MSXML2::IXMLDOMElementPtr pNode;
// 添加“author”元素 
pNode = pDoc -> createElement((_bstr_t) " Author " );
pNode -> Puttext((_bstr_t)( const char* )m_strAuthor);
xmlRoot -> appendChild(pNode);
// 添加“Title”元素 
pNode = pDoc -> createElement( " Title " );
pNode -> Puttext(( const   char   * )m_strTitle);
xmlRoot -> appendChild(pNode);
pDoc -> save( " c:\\he.xml " );