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

假设日期在text1中，查询后结果在其他text2(0)...text2(n)中，并且conn连接已打开，查询按钮为command1
Private Sub Command1_Click()
  dim rs as new recordset,a as string,i as integer
  if not isdate(text1) then
    msgbox "日期格式不对，请重新输入日期"
    text1.setfocus
    exit sub
  endif
  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

大神，你这样问问题太泛泛了，你至少有一个非常具体的东西再来问吧，比如说数据库结构、窗体编排都已经设计好了，再来开问吧。要不你干脆给数据库，说你要的功能，让别人完成也比你这样问问题好。

其实我是，设置了，三个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