How to set accpac session using Accpac COMAPI?

 
'Global Variables

Dim mSession as New AccpacSession
Dim Sessionmgr as new AccpacSessionManager
Dim ObjectHand as String
Dim mDbLink as AccpacDBLink

'Open Session:
Private sub Form_Load()

'Open Session
With SessionMgr
     .AppId="XX"
     .AppVersion="56A"
     .ProgramName="XX1000"
     .ServerName=""
     .CreateObjectHandle(ObjectHand,0,mSession)
End With

If mSession.isOpened then
 
 Set mDbLink=mSession.OpenDBLink(DBLinkType.Company,DBLinkFlags.ReadWrite)


End if

  'Initialize Views

   With adsView1
     if .Active=false then
        .DBLink=mDbLink
        .Active=true
     End if
   End With

     With adsView2
     if .Active=false then
        .DBLink=mDbLink
        .Active=true
     End if
   End With


     With adsView3
     if .Active=false then
        .DBLink=mDbLink
        .Active=true
     End if
   End With


     With adsView4
     if .Active=false then
        .DBLink=mDbLink
        .Active=true
     End if
   End With

End Sub