Como utilizar ADO e o fornecedor de OLE DB do Exchange 2000 para procurar itens numa pasta utilizando o Visual C#

using System;

namespace Samples
{
	class Class1
	{
		static void Main(string[] args)
		{
			try 
			{
			ADODB.Connection oCn = new ADODB.Connection();
			ADODB.Recordset oRs = new ADODB.Recordset();
			

			ADODB.Fields oFields;
			ADODB.Field oField;

                        // TODO: Replace with your folder's URL.
			string sFdUrl = "http://ExchServer/Exchange/UserAlias/Inbox";
			
			oCn.Provider = "exoledb.datasource";
			oCn.Open(sFdUrl, "", "", -1);  

			if(oCn.State == 1)
			{
				Console.WriteLine("Good Connection");
			}
			else
			{
				Console.WriteLine("Bad Connection");
			}


			string strSql;
			strSql = "";
			strSql = "select ";
			strSql = strSql + " \"urn:schemas:mailheader:content-class\"";
			strSql = strSql + ", \"DAV:href\" ";
			strSql = strSql + ", \"DAV:displayname\"";
			strSql = strSql + " from scope ('shallow traversal of " + "\"";
			strSql = strSql + sFdUrl + "\"') ";
			strSql = strSql + " WHERE \"DAV:ishidden\" = false";
			strSql = strSql + " AND \"DAV:isfolder\" = false";


			oRs.Open(strSql, oCn,
				ADODB.CursorTypeEnum.adOpenStatic,
				ADODB.LockTypeEnum.adLockUnspecified, 1);


			if(oRs.State == 1)
			{
				Console.WriteLine("Recordset Opened");
			}
			else
			{
				Console.WriteLine("Recordset Failed Opened");
			}

			oRs.MoveFirst();
			while(!oRs.EOF)
			{
				oFields = oRs.Fields;
                                    oField = oFields["DAV:href"];
				Console.WriteLine(oField.Value);

				oField = oFields["DAV:displayname"];
				Console.WriteLine(oField.Value);

				oRs.MoveNext();  
				                             Console.WriteLine("--------------------------");

			}

			oRs.Close();
			oCn.Close();

			oCn = null;
			oRs = null;
			oFields = null;
			oField = null;
			}
			catch (Exception e)
			{
				Console.WriteLine("{0} Exception caught.", e);
			}			
		}
        }
}