Dex2 - The access to field(s) denied.

@vlscout

The correct initialisation routine for VB .NET will be the following:

 _dexCookie = DirectCast(_dexMgr, Dex2.IDex2Mgr2).Initialize(Dex2.DEX2_MetadataCaller.DE_MC_ADC_UNKNOWN)

Full sample below:

Private _api As EikonDesktopDataAPILib.EikonDesktopDataAPI
Private _dexMgr As Dex2.Dex2Mgr
Private _dexCookie As Long
Private _rdata As Dex2.RData

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        _api = New EikonDesktopDataAPILib.EikonDesktopDataAPI
        AddHandler _api.OnStatusChanged, AddressOf Api_OnStatusChanged
        _api.Initialize()
End Sub

Private Sub Api_OnStatusChanged(ByVal eStatus As EikonDesktopDataAPILib.EEikonStatus)

        If eStatus = EikonDesktopDataAPILib.EEikonStatus.Connected Or eStatus = EikonDesktopDataAPILib.EEikonStatus.LocalMode Then

            _dexMgr = _api.CreateDex2Mgr()

            _dexCookie = DirectCast(_dexMgr, Dex2.IDex2Mgr2).Initialize(Dex2.DEX2_MetadataCaller.DE_MC_ADC_UNKNOWN)

            _rdata = _dexMgr.CreateRData(_dexCookie)

            AddHandler _rdata.OnUpdate, AddressOf RData_OnUpdate

            With _rdata
                .InstrumentIDList = "TRI.TO"
                .FieldList = "TR.ISIN"
                .Subscribe(False)
            End With
        End If
End Sub

    Private Sub RData_OnUpdate(ByVal dataStatus As Dex2.DEX2_DataStatus, ByVal [error] As Object)

        Dim i As Long, j As Long

        For i = LBound(_rdata.Data, 1) To UBound(_rdata.Data, 1)
            For j = LBound(_rdata.Data, 2) To UBound(_rdata.Data, 2)
                Debug.Print(_rdata.Data(i, j))
            Next j
        Next i
End Sub