selecting default data provider

Where in the code can the default data provider be set upon running the sample?  I want to default to MAPI outlook, so this is the data source when running the sample.

Whenever MAPI is selected in the sample, it causes an error when the program stops running in VB and even after the program is compiled upon exiting the sample and error is displayed.  Is there a fix that is causing this system error>

That works fine, but would like to not be prompted for the "Choose Profile".  Tried setting the default option in the dialog, but this does nothing in regards to setting as the default profile.

Thanks in advance.

sserge wrote: To open MAPI data provider it is enough on form loading setup it in a following way: CalendarControl.SetDataProvider "Provider=MAPI;" And open it: CalendarControl.DataProvider.Open There should not be any errors when using it. It would be better if you submit your crash report into support area http://www.codejock.com/support/ with as much details as possible. -- Regards, Serge

That works fine, but would like to not be prompted for the "Choose Profile".  Tried setting the default option in the dialog, but this does nothing in regards to setting as the default profile.

Thanks in advance.

First Add a Reference to Microsoft CDO 1.21 (Collobaration Data Object)

Use the following code

private sub Form_Load()

    Dim objSession As MAPI.Session
    Dim MAPISession As Outlook.NameSpace
    Set objSession = CreateObject("MAPI.Session")
    Set MAPISession = Application.Session  
    If Not MAPISession Is Nothing Then
    MAPISession.Logon , , True, False
    End If
    OpenProvider cjCalendarData_MAPI, "Provider=MAPI"

end sub

Public Sub OpenProvider(ByVal eDataProviderType As CodeJockCalendarDataType, ByVal strConnectionString As String)
      CalendarControl.SetDataProvider strConnectionString
      If Not CalendarControl.DataProvider.Open Then
          CalendarControl.DataProvider.Create
      End If
      CalendarControl.Populate
      Exit Sub
End Sub