Pra falar a verdade já esperava que desse erro. Vamos trocar sua conexão com banco de dados? tenta assim:
<%
vIota = request.form("Iota")
Set Conexao = CreateObject("ADODB.CONNECTION")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("../../../dados/arvore.mdb")
sqlstmt = "SELECT * FROM prlist WHERE Iota like '%" & vIota & "%' "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, conexao, 3, 3
totalrecs = rs.recordcount
achei="sim"
if rs.eof then%>
e coloca o select assim denovo.
<%Sql = "SELECT * FROM prlist ORDER BY Iota"
Set rs = Conexao.Execute(Sql)
While not rs.EOF %> vê se funciona.