... 
my $strBase = Tkx::tk___getOpenFile(-title => ...
...
my $AppAccess = Win32::OLE->new('Access.Application', 'Quit') or die "Couldn't start new Access instance: $!";
$AppAccess->OpenCurrentDatabase($strBase) or die "Unable to open Access database : $!";