I have tried using COMAPI and XAPI. For the COM API, I use the following code:
=====================================================
Dim accSession As New AccpacCOMAPI.AccpacSession
accSession.Init "", "AS", "AS1000", "52A"
accSession.Open "ADMIN", "ADMIN", "RTCO", Date, 0, ""
Dim mDBLinkCmpRW...