Select Code to Download

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

OLE exception from "DAO.Workspace":

Could not find file 'database.accdb'.

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

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