原因分析：cnn参数没有值，只要将这一句 Set cnn=CurrentProject.Connection，加在出错语句上一行就行了。