PRB: Error Occurs When You Open an ADO Recordset on an XML Stream

		//pStream->Charset = "UTF-8"; 
				

#include <stdio.h>
#include <tchar.h>
#include <conio.h>
#include <io.h>


#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename("EOF", "ADOEOF")
int main()
{
	CoInitialize(NULL);
	
	HRESULT hr = S_OK;	
	_ConnectionPtr	pDBConn;
	_RecordsetPtr	pRS1,pRS2;
	
	_StreamPtr		pStream ;
	
	_variant_t  vtEmpty (DISP_E_PARAMNOTFOUND, VT_ERROR);
	_bstr_t     bstrEmpty(L"");
	
	try
	{
		struct _finddata_t xml_file;
		long hFile;
		
		if( (hFile = _findfirst("c:\\test.xml", &xml_file )) != -1L)
		{
			DeleteFile("c:\\test.xml");
		}
		
		
		_bstr_t    bstrConnect( L"dsn=pubs;uid=<username>;pwd=<strong password>;" );
		
		hr = pDBConn.CreateInstance( __uuidof( Connection ) );
		pDBConn->ConnectionString = bstrConnect;
		pDBConn->Open( bstrEmpty, bstrEmpty, bstrEmpty,-1 );
		
		hr=pRS1.CreateInstance( __uuidof( Recordset ) );
		hr=pRS2.CreateInstance( __uuidof( Recordset ) );
		
		hr=pStream.CreateInstance( __uuidof( Stream ) );
		
		pRS1->Open("Select * from authors",pDBConn.GetInterfacePtr(),adOpenStatic,adLockOptimistic,adCmdText);
		pRS1->Save("C:\\test.xml",adPersistXML);
		
		//pStream->Charset = "UTF-8"; 
		pStream->Open(vtEmpty,adModeUnknown,adOpenStreamUnspecified,bstrEmpty, bstrEmpty);
		pStream->LoadFromFile("C:\\test.xml");
		
		hr = pRS2->Open(pStream.GetInterfacePtr(),vtEmpty,adOpenStatic, adLockOptimistic,adCmdFile);
		
		// check it out
		_variant_t RetVal;
		RetVal = pRS2->Fields->Item["au_lname"]->Value;
		
		//Cleanup
		pRS1->Close();
		pRS2->Close();
		
		pDBConn->Close();
		
		
	}
	catch( _com_error &e )
	{
		// basic error handling
		_tprintf(_T("Exception!\n"));
		_tprintf(_T("\a\tCode = %08lx\n"), e.Error());
		_tprintf(_T("\a\tCode meaning = %s\n"), e.ErrorMessage());
		_bstr_t bstrSource(e.Source());
		_bstr_t bstrDescription(e.Description());
		_tprintf(_T("\a\tSource = %s\n"), (LPCTSTR) bstrSource);
		_tprintf(_T("\a\tDescription = %s\n"), (LPCTSTR) bstrDescription);
	}
	
	CoUninitialize();
	return(0);
}
				

pStream->Charset = "iso-8859-1";