Где находится "CDO.Appointment"

Я использую VB .NET 2005 и установлен Exchange Server 2003 Я нашел код, который дает мне возможность подключиться к серверу Exchange и назначить встречу. Дело в том, что я не могу найти CDO. Встреча. Где я могу его найти и заставить работать приведенный ниже код? Я перепробовал все примеры с CDO и Outlook. Я считаю, что приведенный ниже код необходимо создать в среде Exchange и использовать CDOEX.DLL? Цените любую помощь или идеи, которые вы можете мне дать. Спасибо

[Образец кода]

sURL = "http://ExchangeServername/Exchange/testuser/calendar"

        Dim oCn As ADODB.Connection = New ADODB.Connection()

        'oCn.Provider = "exoledb.datasource";
   'I am using the below provider because I am in the client side 
    oCn.Provider = "MSDAIPP.DSO"

        oCn.Open(sURL, "testuser", "q1w2e3r4t5", 0)
        If oCn.State = 1 Then
            MsgBox("Good Connection")
        Else
            MsgBox("Bad Connection")
            Return
        End If

        Dim iConfg As CDO.Configuration = New CDO.Configuration()
        Dim oFields As ADODB.Fields

        oFields = iConfg.Fields
        oFields.Item(CDO.CdoCalendar.cdoTimeZoneIDURN).Value = CDO.CdoTimeZoneId.cdoAthens
        'oFields.Item(CDO.CdoConfiguration.cdoSendEmailAddress).Value = "[email protected]"
        oFields.Update()



        Dim oApp As CDO.Appointment = New CDO.Appointment()
         oApp.Configuration = iConfg
        oApp.StartTime = Convert.ToDateTime("10/11/2001 10:00:00 AM")
        oApp.EndTime = Convert.ToDateTime("10/11/2001 11:00:00 AM")
        oApp.Location = "My Location"
        oApp.Subject = "Test: Create Meeting in VB.NET"
        oApp.TextBody = "Hello..."

        '' Add recurring appointment
        '' Every Thursday starting today, and repeat 3 times.

        '' Save to the folder
        oApp.DataSource.SaveToContainer(sURL, , _
         ADODB.ConnectModeEnum.adModeReadWrite, _
         ADODB.RecordCreateOptionsEnum.adCreateNonCollection, _
         ADODB.RecordOpenOptionsEnum.adOpenSource, _
         "", "")

        oCn.Close()

        oApp = Nothing
        oCn = Nothing
        oFields = Nothing