Изменение даты создания таблицы и прочих свойств программно - VB

Формулировка задачи:

Работаю с Access, нужно программным путем менять дату создания у некоторых таблиц и описание таблицы (которое можно увидеть если кликнут на таблице правой мышкой и выбрать свойства), плюс некоторых описаний полей.
Могу я такое провернуть?
И в каких еще СУБД такое поддерживается?

Решение задачи: «Изменение даты создания таблицы и прочих свойств программно»

textual
                            Листинг программы 
                        

                            <font color="00AA00">' Список всех свойств таблицы.</font>
<font color="blue">Sub</font> GetProperties( _
  strTable <font color="blue">As</font> <font color="blue">String</font>)
    <font color="blue">Dim</font> db <font color="blue">As</font> DAO.Database
    <font color="blue">Dim</font> tbl <font color="blue">As</font> DAO.TableDef
    <font color="blue">Dim</font> prp <font color="blue">As</font> DAO.<font color="blue">Property</font>
    
    <font color="blue">Set</font> db = CurrentDb
    <font color="blue">Set</font> tbl = db.TableDefs(strTable)
    
    <font color="blue">For</font> <font color="blue">Each</font> prp <font color="blue">In</font> tbl.Properties
        Debug.<font color="blue">Print</font> prp.<font color="blue">Name</font>, prp.Value
    <font color="blue">Next</font> prp
    
    <font color="blue">Set</font> db = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="00AA00">' Получить описание таблицы.</font>
<font color="blue">Function</font> GetDescription( _
  strTable <font color="blue">As</font> <font color="blue">String</font>) <font color="blue">As</font> <font color="blue">String</font>
    <font color="blue">Dim</font> db <font color="blue">As</font> DAO.Database
    <font color="blue">Dim</font> tbl <font color="blue">As</font> DAO.TableDef
    <font color="blue">Dim</font> prp <font color="blue">As</font> DAO.<font color="blue">Property</font>
    
    <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> HandleErr:
    
    <font color="blue">Set</font> db = CurrentDb
    <font color="blue">Set</font> tbl = db.TableDefs(strTable)
    <font color="blue">Set</font> prp = tbl.Properties(<font color="teal">"Description"</font>)

    GetDescription = prp.Value
    
ExitHere:
    <font color="blue">Set</font> db = <font color="blue">Nothing</font>
    <font color="blue">Exit</font> <font color="blue">Function</font>

HandleErr:
    <font color="blue">Select</font> <font color="blue">Case</font> Err.Number
        <font color="blue">Case</font> <font color="darkblue"><b>3270</b></font> <font color="00AA00">' Если нет описания.</font>
            GetDescription = vbNullString
            <font color="blue">Resume</font> ExitHere
        <font color="blue">Case</font> <font color="blue">Else</font>
            MsgBox (Err.Number & <font color="teal">" "</font> & Err.Description)
    <font color="blue">End</font> <font color="blue">Select</font>
<font color="blue">End</font> <font color="blue">Function</font>

<font color="00AA00">' Установить описание для таблицы.</font>
<font color="blue">Sub</font> SetDescription( _
  strTable <font color="blue">As</font> <font color="blue">String</font>, _
  strDescription <font color="blue">As</font> <font color="blue">String</font>)
    <font color="blue">Dim</font> db <font color="blue">As</font> DAO.Database
    <font color="blue">Dim</font> tbl <font color="blue">As</font> DAO.TableDef
    <font color="blue">Dim</font> prp <font color="blue">As</font> DAO.<font color="blue">Property</font>
       
    <font color="blue">Set</font> db = CurrentDb
    <font color="blue">Set</font> tbl = db.TableDefs(<font color="teal">"tblCustomers"</font>)
    <font color="blue">Set</font> prp = tbl.Properties(<font color="teal">"Description"</font>)

    prp.Value = strDescription
    
    <font color="blue">Set</font> db = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="00AA00">' Получить дату создания, дату последнего обновления.</font>
<font color="blue">Sub</font> GetDates( _
  strTable <font color="blue">As</font> <font color="blue">String</font>)
    <font color="blue">Dim</font> db <font color="blue">As</font> DAO.Database
    <font color="blue">Dim</font> tbl <font color="blue">As</font> DAO.TableDef
        
    <font color="blue">Set</font> db = CurrentDb
    <font color="blue">Set</font> tbl = db.TableDefs(strTable)
     
    Debug.<font color="blue">Print</font> tbl.Properties(<font color="teal">"DateCreated"</font>)
    Debug.<font color="blue">Print</font> tbl.Properties(<font color="teal">"LastUpdated"</font>)

    <font color="blue">Set</font> db = <font color="blue">Nothing</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="00AA00">' Установить дату создания и обновления.</font>

<font color="00AA00">' The DateCreated and LastUpdated properties, respectively,</font>
<font color="00AA00">' give you this information.</font>
<font color="00AA00">' Both properties return the date stamp applied to the table by</font>
<font color="00AA00">' the machine on which the table resided at the time it was stamped.</font>
' These properties are only updated when the table's design changes.
                        