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);