vb+xmlhttprequest问题？？？？？？

Question

asp文件源码
<%@ Language=VBScript %><%set conn=Server.CreateObject("ADODB.connection")conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("tj.mdb")  dim rs  Set rs = Server.CreateObject("ADODB.Recordset")  rs.open "select * from jibenxx",connrs.save response,1 rs.close%>vb源码
Private rs As ADODB.Recordset
Private Sub Command3_Click()Set rs = New ADODB.Recordset
a = "http://localhost/gg.asp"
rs.open aSet DataGrid1.DataSource = rsEnd Sub运行出现假死机现象，？？？？望高手解决！！！！

Answer 1

假死？
是不是数据量太大了，一时反映比较慢