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