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