$oDatabase = $oAccess->DBEngine->OpenCurrentDatabase($filename);
####
$oDatabase = $oAccess->DBEngine->OpenDatabase($filename);
##
##
my $filename = 'C:\Documents and Settings\551970\Desktop\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->OpenDatabase($filename);
my $new_property = $oDatabase->Containers->Databases->Documents->UserDefined->CreateProperty("Test1",12,"Test");
$oDatabase->Containers->Databases->Documents->UserDefined->Properties->Append($new_property);
foreach (in $oDatabase->Containers->Databases->Documents->UserDefined->Properties)
{
#print Dumper($_);
print "prop ".$_->Name."\n";
}
undef $oDatabase;
#undef $oAccess;
$oAccess->Quit();