第一步：在VBA界面点“调试”->"编译"

第二步：就会出现代码出错的地方，删除多写的一行即可，只需要声明一次：

Option Compare Database
Option Compare Database　'　将此行删除