my $filename = "database.accdb"; # $ARGV[0];
print $filename."\n";
$oAccess = Win32::OLE->new('Access.Application') or die qq{Couldn't start new Access instance!};
      # Open Access File
$oDatabase = $oAccess->DBEngine->Workspaces(0)->OpenDatabase($filename);
##</code><code>##

OLE exception from "DAO.Workspace":

Could not find file 'database.accdb'.

Win32::OLE(0.1709) error 0x800a0bd0
    in METHOD/PROPERTYGET "OpenDatabase" at accessTest.pl

##</code><code>##

 
my $filename = "database.accdb"; # $ARGV[0];
print $filename."\n";
$oAccess = Win32::OLE->new('Access.Application') or die qq{Couldn't start new Access instance!};
# Open Access File
$oDatabase = $oAccess->OpenCurrentDatabase($filename);