[求助]自定义的日期为什么不能用于查询？

fountain1107

Dim Idate As Date

Dim strSQL As String

Dim qdf As QueryDef

Idate = InputBox("请按YYYY－MM－DD的样式输入所处理数据的日期", "请输入日期")

strSQL = "SELECT * from cj WHERE (((cj.到期日)<Idate) And ((cj.延期日)<Idate)"

Set qdf = CurrentDb.CreateQueryDef("bl_cj", strSQL)

DoCmd.OpenQuery qdf.Name



为什么定义了日期数据，到了查询时还要再输入日期呢？



请高手帮助改一下！！！！

阿笨

strSql="SELECT * from cj WHERE (((cj.到期日)<#" & Idate & "#) And ((cj.延期日)<#" & Idate & "#)"