Index: oup/current/DataAccess/Access_OUP_ADB.pas
===================================================================
--- oup/current/DataAccess/Access_OUP_ADB.pas	(revision 227)
+++ oup/current/DataAccess/Access_OUP_ADB.pas	(revision 229)
@@ -113,4 +113,6 @@
 
   UpdateListCache;
+
+  inherited;
 end;
 
Index: oup/current/DataAccess/Access_OniArchive.pas
===================================================================
--- oup/current/DataAccess/Access_OniArchive.pas	(revision 227)
+++ oup/current/DataAccess/Access_OniArchive.pas	(revision 229)
@@ -161,4 +161,6 @@
   FConnectionID := ConnectionID;
   FChangeRights := [CR_EditDat, CR_EditRaw, CR_AppendRaw];
+
+  inherited;
 end;
 
Index: oup/current/DataAccess/DataAccess.pas
===================================================================
--- oup/current/DataAccess/DataAccess.pas	(revision 227)
+++ oup/current/DataAccess/DataAccess.pas	(revision 229)
@@ -25,5 +25,5 @@
     property MetaData:     TMetaManager read FMeta;
 
-    constructor Create(FileName: String; ConnectionID: Integer; var Msg: TStatusMessages); virtual; abstract;
+    constructor Create(FileName: String; ConnectionID: Integer; var Msg: TStatusMessages); virtual;
     procedure Close; virtual; abstract;
 
@@ -76,4 +76,12 @@
 *)
 
+constructor TDataAccess.Create(FileName: String; ConnectionID: Integer;
+  var Msg: TStatusMessages);
+begin
+  FMeta := TMetaManager.Create(FConnectionID, Self);
+end;
+
+
+
 function TDataAccess.ExtractFileIDOfName(Name: String): Integer;
 begin