Dim Builder As New ADOXBuilder Builder.Open() '打开ADOXBuilder If DataTables.Contains("统计表") '如果存在统计表
Builder.DeleteTable("统计表") '删除统计表 End If Builder.Close() '关闭ADOXBuilder Syscmd.Project.Save() Syscmd.Project.Open(ProjectFile) '重新打开项目