vb跟查询日期

假设日期在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

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

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