wordpress add itemprop = & ldquo; image & rdquo; to < figure class = & ldquo; wp-block-image & rdquo; >

Добавить ref в: Объекты данных Microsoft ActiveX 2.x Библиотека Microsoft Jet и объекты репликации 2.x Library

sDB = "c:\DB\myDb.mdb"
sDBtmp = "c:\DB\tempMyDb.mdb"
sPASSWORD = "password"

Dim oApp As Access.Application
Set oApp = New Access.Application
Call oApp.DBEngine.CompactDatabase(sDB, sDBtmp, dbLangGeneral, , ";pwd=" & sPASSWORD)

'wait for the app to finish
        DoEvents
'remove the uncompressed original
        Kill sDB
'rename the compressed file to the original to restore for other functions
        Name sDBtmp As sDB