The code i translated from vb6 is this one:
Dim session2 As AccpacCOMAPI.AccpacSession
session2 = CreateObject("ACCPAC.Session") 'tried this too: session2 = New AccpacCOMAPI.AccpacSession
session2.Init("", "XY", "XY0001", "60A")
session2.Open("ADMIN", "ADMIN", "SAMLTD"...