我不太熟悉，怎么用，现在表单已经建立好，代码我也知道，这么做，详细的步骤能给一个吗？
參考答案:代码如下
<%
dim conn,rs,sql,strConn
'建立数据连接
strConn="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("db1.mdb")
conn.open strConn
'建立记录集
rs=server.CreateObject("Adodb.Recordset")
Sql="Select dID from Date"
rs.open sql,conn,1,1 '最后两个数字表示只读，不锁定。
'记录已经建立，可以开始使用
if rs.eof or rs.bof then
'表中无记录
'添加你的处理代码
else
'有记录
do while not rs.eof
'输出所有记录
response.write("ID=" &rs("dID") &"<br>")
rs.movenext
loop
end if
'最后释放资源
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
－－－－－－－－－－－－－－－－－－－－－－－－－
补充：
楼下的说得很对，我忘了这点了。因为平常我都把数据库连接放在一个单独得文件里供其他文件调用得，所以。。呵呵。见笑了。