解决方案 »

  1.   

    text1(2).text的值可能无法转换成日期,建议在向存储过程传递参数前先用isdate函数验证text1(2).text值是否能转成日期格式。
      

  2.   

    我用函数验证过
    代码如下:
               If IsDate(Text1(2).Text) Then
             '       APC = MsgBox(Text1(2).Text)
                
             '   Else
             '       APC = MsgBox("不是时间!" & Text1(2).Text)
             '   End If
      

  3.   

    代码中有全角字符!
    把拼接的 SQL 用 Debug.Print 打印出来,到查询分析器中找错。