vba错误：对象变量或未设置块变量

I'm getting a "object variable or with block variable not set" error message when running the following code. It is in Access and refers to an Excel spreadsheet. What is wrong with the code?I'm getting a "object variable or with block va