' Setzen einer Datenbankeigenschaft
 
Dim prp As Property
Dim DB As DataBase
 
Set DB = DBEngine.OpenDataBase("DBNAME", False, False)
Set prp = DB.CreateProperty("Wartung", dbBoolean,False)
DB.Properties.Append prp

' Lesen einer Datenbankeigenschaft
 
Dim prp As Property
Dim DB As Database
Dim b As Boolean
 
Set DB = DBEngine.OpenDataBase("DBNAME", False, False)
b = DB.Properties("Wartung").Value