strsql="select * from Table Name where date between cdate() and cdate()"

不清楚你想要问什么，就是一个界面。要实现什么功能，你需要问什么具体的内容。都没有别人如何解答？？
如果是日期选取的话，DateTimePicker控件可以实现
如果查询的话，2楼已经给答案了

见解同楼上

同样一个界面，可以编辑出好多完全不同的实现功能，你仅仅给出了一个界面，怎么知道你需要实现的功能，将你的功能写出来就那么费事吗？
不要以为你自己知道做什么，别人也知道做什么！

你上面 有三个按钮：估计你想 单击某个按钮时，显出相关数据，按"2楼"给出的查询方法即可，第三个按钮：“全部显示”最简单：recordstr.open "select * from 数据库",text3.text=recordstr.fields(0) & space(6) & recordstr.fieldsfields(1) & recordstr.fieldsfields(2),......依次,

如果不是需要用数据做其他，用excl，多方便呀

你这是个查询、显示、打印界面，你数据来源呢，是excl表，还是数据库，还是其他