OTA ALM Connectivity Issue

I have written the code to connect to ALM(12.5.3)

Dim QCConnection
 Set QCConnection = CreateObject("TDApiOle80.TDConnection")
  MsgBox ("Connect to QC Server")

Getting run time error:429 as Active X components cant create objects

Tags: