查询出错提示及导出EXCEL出错提示

卡壳了,我重新检查了源表字段数据类型:1---分类,文本,组合框 ,行来源为固定值

                                                     2---出版社,文本,文本框

                                                     3---出版日期,日期型,默认值#某年某月某日#,掩码:0000-99-99;0:_

现在查询界面的三个条件设置:             1---分类,组合框,行来源为表查询

                                                     2---出版社,组合框,行来源为表查询

                                                     3---起止日期,为两个文本框,数据格式为还y-mm-dd

还有个问题,我在"清除条件"中加入以下代码,提示"函数未定义",该怎样改正?是否与错误产生有关?

'这里将使用FOR EACH CONTROL的方法来清除控件的值
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝


    Dim ctl As Control
 For Each ctl In Me.Controls


        根据ctl的控件类型来选择
        Select Case ctl.ControlType
        Case acTextBox    '是文本框，要清空(注意，子窗体下面还有两个锁定的文本框不能赋值)
            If ctl.Locked = False Then ctl.Value = Null
        Case acComboBox    '是组合框，也要清空
            ctl.Value = Null
          '  其它类型的控件不处理
     End Select
    Next
谢谢指点!