我想输入日期，然后按下查询，其他有关的文本框，显示有关这天的全部信息，该怎么写程序，求大神指点

其实我是，设置了，三个combo combox 分别放的是年，月，日，然后一个 查询按钮，和 两个文本框，我是想，年月日，选好后，点查询按钮，文本框才会显示记录，VB新手，请凉解，楼上的大神。是不是还是像上面的方法解决啊，谢谢

a="select * from 数据表名 where 日期=#" & text1 & "#"
   rs.Open a, conn, adOpenKeyset, adLockOptimistic  '打开记录集
   if not rs.eof then
     for i=0 to rs.fields.count - 1
       if not isnull(rs.fields(i)) then text2(i)=rs.fields(i)   '显示第一条记录数据（运行的时候，提示错误，不能给只读属性赋值）
     next
   endif
   rs.close
 End Sub