'  Vytvoření instance "Application"
Set mApplication = CreateObject("AbraOLE.Application")
'  Přihlášení správce
If mApplication.Login("Supervisor", "") Then
  '  Další práce v otevřeném rozhraní
End If
... 
Set mApplication = nothing Při existenci více firem (databází) v jedné instalaci, je možné také určit spojení na konkrétní firmu (databázi).
'  Vytvoření instance "Application"
Set mApplication = CreateObject("AbraOLE.Application")
'  Výběr spojení
Call mApplication.Connect("@DemoData")
'  Přihlášení správce
If mApplication.Login("Supervisor", "") Then
 '  Další práce v otevřeném rozhraní
End If
... 
Set mApplication = nothing