指定一个textbox文本框控件作为SQL的查询string时：
dim sql as string
sql=text1.text
在text1文本框输入以下内容
select * from 数据表名 where 中文字段名 like '%关键字%'
and 日期字段名=cdate(date()+100) order by 字段名 desc
直接书写代码时：
dim sql as string
sql = "select * from 数据表名 where 日期字段=cdate('" & Date+100 & "')
另外可以使用datavalue替换cdate
