The code to create an object needs to be updated, from:
Dim CS As Object
Set CS = CreateObject("Connex.Client")
to:
Dim CS As Object
On Error Resume Next
Set CS = GetObject( , "Connex.Client" )
On Error GoTo 0
If CS Is Nothing Then Set CS = CreateObject( "Connex.Client" )
Thank you for pointing this out. I updated the code as you indicated in v2.1.2, released today. Please let me know if you have any other issues with the program.
The code to create an object needs to be updated, from:
to: