Ak pracujete s Accessom vo Visual Basicu, databázu otvoríte metódou OpenCurrentDatabase, zatvoríte metódou CloseCurrentDatabase. Metódou Close to nie je možné, pretože uzatvára databázu ako objekt, ale Access ju bude vidieť ako otvorenú.

Dim myAccess As Access.Application
Set myAccess = New Access.Application
'otvorenie databázy vo výhradnom režime
myAccess.OpenCurrentDatabase "C:\databaza.mdb", True
'uzavretie databázy
myAccess.CloseCurrentDatabase