新手问题，ACCESS导出到EXCEL

lqp971

大哥大姐们：
帮忙看看以下代码，这段代码是小军老师的，我一直都用，但是这次用不知道为什么，出现“这个集合中找不到该项目”的错误对话框。
注：deliver是我做的按钮名称
     ACCcsub是窗体中根据ACCc查询做的子窗体
问题出在哪里？


On Error GoTo Err_deliver_Click
'这里将使用DAO来改变查询的SQL语句，必须先在“工具”→“引用”中选择
'Microsoft DAO 3.6 Object Library.
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
    Dim Check As DAO.QueryDef 'qdf被定义为一个查询定义对象
    Dim strWhere, strSQL As String
   
    strWhere = Me.ACCcsub.Form.Filter
   If strWhere = "" Then
   '     '没有条件
       strSQL = "SELECT * FROM [ACCc]"
    Else
        '有条件
       strSQL = "SELECT * FROM [ACCc] WHERE " & strWhere
    End If
   
    Set Check = CurrentDb.QueryDefs("result")
    Check.SQL = strSQL
    Check.Close
   
    Set Check = Nothing
   
    DoCmd.OutputTo acOutputQuery, "result", acFormatXLS, , True
   
Exit_deliver_Click:
    Exit Sub
Err_deliver_Click:
    MsgBox Err.Description
   Resume Exit_deliver_Click

lqp971

等来的是广告……