If CInt(Application("DataBaseType")) = 1 Then SqlStr=SqlStr & " And AddDate>='" & KeyWord & " 00:00:00' and AddDate<='" &KeyWord & " 23:59:59'" else SqlStr=SqlStr & " And AddDate>=#" & KeyWord & " 00:00:00# and AddDate<=#" &KeyWord & " 23:59:59#" end if