lsql = "select convert(varchar(10),receivedate,120) from hinitticket " _
        & "where  convert(numeric,tstart)<=" & Val(Fromcode1(i)) & " and convert(numeric,tend)>= " & Val(Fromcode1(i)) & "  " _
        & " union select convert(varchar(10),receivedate,120) from hinitticket " _
        & "where  convert(numeric,tstart)<=" & Val(Endcode1(i)) & " and convert(numeric,tend)>= " & Val(Endcode1(i)) & "  "
    Set rs = cn.OpenResultset(lsql, rdOpenStatic, rdConcurReadOnly)
    If Not rs.EOF Then
        
        
        执行出错(实时错误13,类型不匹配)
        Dim k As Integer
        k = DateDiff("M", "receivedate", Now)
        可是我执行下面,没有报错,结果也是对的
        Dim l As Integer
        l = DateDiff("M", "2008-1-2", Now)
这到底是什么原因啊???应该怎么改啊我在sql2005查询分析器执行也没有错误select convert(varchar(10),receivedate,120) from hinitticket where  convert(numeric,tstart)<=100000001 and 
convert(numeric,tend)>= 100000001 and DateDiff("M", "receivedate", getdate())>1
union select convert(varchar(10),receivedate,120) from hinitticket where  
convert(numeric,tstart)<=100000002 and convert(numeric,tend)>= 100000002 and DateDiff("M", "receivedate", getdate())>1
select convert(varchar(10),receivedate,120) from hinitticket where  convert(numeric,tstart)<=100000001 and 
convert(numeric,tend)>= 100000001 and DateDiff("M", "receivedate", '2009-04-21')>1
union select convert(varchar(10),receivedate,120) from hinitticket where  
convert(numeric,tstart)<=100000002 and convert(numeric,tend)>= 100000002 and DateDiff("M", "receivedate", '2009-04-21')>1