哪位高手能告诉小弟我如何编写access显示效果

谁能告诉我怎么编写access显示效果
谁能告诉我如何编写只显示谁不能告诉我如何编成只显示data栏目里“2013-2-3”对应的"yhm"和“mima”栏目里的信息：
access的内容如下图


要显示的效果如下：
16161616161  1717171717171
18181818181  1919191919191
20202020202  2121212121212 
------解决方案--------------------------------------------------------
你自己不是写好了吗？
帮你改了下：

<%
Dim conn
Set conn = server.CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("data/nod32.mdb")

Dim exec, rs
exec = "select * from [id] where data='"&Date()&"'"
Set rs = server.CreateObject("adodb.recordset")
rs.Open exec, conn, 1, 1
%>
<%do while not rs.eof%> 
<%=rs("yhm")%><br> 
<%=rs("mima")%><br> 
<%=rs("date")%><br> 
<% 
rs.movenext 
loop 
%> 
<% 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%>