Santo Lin

Galera, o que estou fazendo de errado neste código? <% user = request.Form("cxtxt1") pass = request.Form("cxtxt2") set conn = server.CreateObject("ADODB.Connection") connDBQ = "DBQ=" & Server.MapPath("dados.mdb") connstring = "DRIVER={Microsoft Access Driver (*.mdb)};" & connDBQ conn.open connstring set rs = server.CreateObject("ADODB.RecordSet") sql = "SELECT * FROM login" response.write("<H1>Teste") rs = conn.execute(sql) do while NOT rs.EOF LINHA 25 response.write("<br>") response.Write(rs("usuario")) rs.movenext loop %> ========= o erro que ele está me dando: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A01B6) O objeto não dá suporte para a propriedade ou método: 'EOF' /empresa_x/login.asp, line 25