该语句错在哪？用的是ACCESS数据库，Format_Time是自定义的一个日期格式转换函数

[liuxingyi]

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: ''

/Shop/Search_Class.asp，行18

Rs.Open "Select * From Products as A,BusinessApplication as B,BusinessHome as C Where C.BusinessHome_Num=A.Product_BusinessHomeNum And "&DateDiff("d",Format_Time(Cdate(Mid(Product_DataTime,1,(InstrRev(Product_DataTime," ")-1))),2),Format_Time(Cdate(Mid(Now(),1,(InstrRev(Now()," ")-1))),2))&"=0 And A.Product_BusinessHomeNum=B.Application_BusinessHomeNum",Conn,1,3