帮帮忙优化下我是asp+access现在才1万都条数据，查询显示很慢，

<%
Dim rs,sql
Set rs = Server.Createobject("adodb.recordset")
sql = "SELECt * FROM Yhc_Workplace where Yhc_ModelID='001' and Yhc_WorkplaceYesNo=true "
rs.Open sql,conn,1,1
do while not rs.eof

i = i + 1
if (i mod 3 =1) then '每个tr显示4个记录,可根据需要自行修改
response.write ""
end if
response.write ""
response.write ""
Response.Buffer=true
Dim rszs,sqlzs
Set rszs = Server.Createobject("adodb.recordset")
sqlzs = "SELECt * FROM Yhc_Diagnosis WHERe Yhc_WorkplaceID ='"&rs("Yhc_WorkplaceID")&"' "
rszs.Open sqlzs,conn,1,1
response.write ""
end if

rs.Movenext
Loop

rszs.close
set rszs=nothing

rs.close
set rs=nothing

%>

"&i&"

"&rs("Yhc_Workplace")&"

" if (i mod 3 = 0) then response.write "

这样的查询 在这一页共有6块

1、你需要优化下数据库：文件--管理--压缩和修复数据库

2、查询也有问题，每次从数据库里不要获取全部记录，应该是显示哪些记录就提取哪些记录
3、表的优化：
1）先打开一个要进行分析的数据库，然后单击“工具”菜单上的“分析”选项，弹出的菜单上有“表”、“性能”和“文档管理器”三个命令。这三个命令可以对相应的内容进行优化。
　2）首先要对对表进行一下优化，单击“表”这个命令。ACCESS开始准备这个表分析器向导，在这个向导的第一页中，为我们提供了建立表时常见的一个问题。这就是表或查询中多次存储了相同的信息，而且重复的信息将会给我们带来很多问题。看完了这些，我们就可以单击“下一步”按钮。
3）第二步告诉我们这个分析器是怎样解决第一步中遇到的问题。解决的办法是将原来的表拆分成几个新的表，使的新表中的数据只被存储一遍。

4）单击“下一步”按钮，在这一步中的列表框中我们选择需要做分析的表，在这儿，虽然ACCESS提示你只要选择有重复信息的表，但最好对所有的表都做一个分析，这样并花不了很多时间。反而能使你的工作能更加规范。 晓宇：那我以后建立的表都进行一下优化分析。 小博士：这是个好习惯。当你选择好要分析的表以后，单击“下一步”按钮，在这一步中我们选择“是”，让向导决定，这样就可以让ACCESS自动为我们完成对这个表的分析。单击“下一步”按钮，通过分析就会在屏幕上弹出一个对话框，在这个对话框中将会告诉我们在上一步中所选的表是否需要进行拆分来达到优化的目的。如果不需要拆分，就单击“取消”按钮，就可以退出这个分析向导，建立的表就不用再优化了。
5）如果单击了“下一步”按钮后，并没有弹出这样一个对话框啊。而是出现了另外一个窗口。这就说明你所建立的表需要拆分才能将这些数据合理的进行存储。现在ACCESS的分析向导已经将你的表拆分成了几个表，并且在各个表之间建立起了一个关系。你只要为这几个表分别取名就可以了。

6）这时你只要将鼠标移动到一个表的字段列表框上，双击这个列表框的标题栏，这时在屏幕上会弹出一个对话框，在这个对话框中就可以输入这个表的名字。输入完以后，单击“确定”按钮就行了。

7）现在再单击“下一步”按钮。我们就到了这个向导的最后一步。在这一步中问我们是否自动创建一个具有原来表名字的新查询，并且将原来的表改名。 这样做，首先可以使基于初始表的窗体、报表或页能继续工作。这样既能优化初始表，又不会使我们原来所做的工作因为初始表的变更而作废。所以我们在这儿通常都是选择“是，创建查询”，并且不选“显示关于处理新表和查询的帮助信息”。当这一切都完成以后，我们单击“完成”按钮，这样一个表的优化分析就完成了。

基本：高级：