请教各位大大，
我写的程式是这样，却出现了这样的错误讯息：
========
回应物件 错误 'ASP 0251 : 80004005'
超出回应缓冲区限制
/test.asp, 行0
执行 ASP 网页导致回应缓冲区超出其设定限制。
========
整个程式是这样：
<%
Set con3 = Server.CreateObject("ADODB.Connection")
con3.Open "Driver={Microsoft Access Driver (*.mdb)};
DBQ="&Server.MapPath("d.mdb")
Set RS3=Server.CreateObject("ADODB.Recordset")
RS3.Open "select * from ad",con3,1,1
Do While Not RS3.EOF <