I created VB.net application which run macros but I got error when tried open session

the code:

Session = New AccpacCOMAPI.AccpacSession
Session.Init("", "XY", "XY1000", "61A")
Session.Open(acc_user.ToUpper, acc_pass.ToUpper, acc_company.ToUpper, DateTime.Today, 0, "")
mDBLinkCmpRW = Session.OpenDBLink(tagDBLinkTypeEnum.DBLINK_COMPANY, tagDBLinkFlagsEnum.DBLINK_FLG_READWRITE)

I tried XX, tried 70A but in all cases I got same error.

when I run my application I got this message in Event Viewer (where the user in red color is related to Vault database which related to web screens!!!)