Error: Class does not support Automation or does not support expected interface VBA

Having an error on my VBA "Class does not support Automation or does not support expected interface" when assigning 

Set dsGLJEH = AccpacGL2100UICtrl1.UIDSControls("dsGLJEH")

On "OnUIAppOpened()"

Public WithEvents dsGLJEH As ACCPACDSControl

Private Sub AccpacGL2100UICtrl1_OnUIAppOpened()
    On Error GoTo H_ERROR
     
    Set dsGLJEH = AccpacGL2100UICtrl1.UIDSControls("dsGLJEH")
     
    
    Exit Sub
H_ERROR:
    MsgBox "ERR~~AccpacGL2100UICtrl1_OnUIAppOpened " & Err.Description
    Debug.Print Err.Description
End Sub