Function LastUpdateDate_DAO()
    Dim tbl As TableDef
    For Each tbl In CurrentDb.TableDefs
        Debug.Print tbl.Name & " 最后更新日期：" & tbl.LastUpdated & " 建立日期：" & tbl.DateCreated
    Next
End Function
Function LastUpdateDate_ADOX()
    '记得引用ADOX
    Dim tbl As ADOX.Table
    Dim cat As New ADOX.Catalog
    cat.ActiveConnection = CurrentProject.Connection
    For Each tbl In cat.Tables
        Debug.Print tbl.Name & " 最后更新日期：" & tbl.DateModified & " 建立日期：" & tbl.DateCreated
    Next
End Function
2种办法都可以实现