'Access 2007 compact DB”翻译成中文为'压缩 Access 2007 数据库”。具体的解决方法可以使用以下代码示例：

Private Sub CompactAccessDB(ByVal sourceDB As String, ByVal destDB As String) Dim CompactDB As Object

Set CompactDB = CreateObject("JRO.JetEngine")
CompactDB.CompactDatabase "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sourceDB, "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & destDB & ";Jet OLEDB:Engine Type=5"

Set CompactDB = Nothing

End Sub

使用方法：

CompactAccessDB "C:\sourceDB.accdb", "C:\destDB.accdb"

其中，C:\sourceDB.accdb 为原数据库的路径，C:\destDB.accdb 为压缩后的数据库的路径。使用时只需要传入这两个参数即可压缩数据库。