各位前辈，你们好！
          可以帮我解决一下以下问题吗？谢谢！
(Microsoft VBScript 运行时错误 '800a01a8'  缺少对象: '')
程序代码：
        <FORM METHOD=POST ACTION="">
    帐号：<input type=text name="name"><br>
    密码：<input type=password name="password"><br>
          <input type=submit value="确定"><input type=reset value="重填">
 </FORM>
     <%
      Dim hao,ma
       hao=Trim(request.Form("name"))
       ma=Trim(request.Form("password"))
       If hao<>"" And ma<>"" Then
        Dim rs,strsql
         Set rs=server.CreateObject("adodb.recordset")
           strsql="select* from users where name='"& hao &"' and password='"& ma &"'"
           rs.open strsql,db,1,1
           End if
      If rs.Eof And rs.Bof Then
           response.write "用户不存在，请重新输入"
           Else
           response.redirect"liao_tang.asp"
    End if
    %>
-----------------------------------------------------------------------------------------------------------
错误指向：If rs.Eof And rs.Bof Then  这一句

strsql="select* from users where name='"& hao &"' and password='"& ma &"'"
检查数据类型，name    password

板主，你好！
      我己经检查了name password 的数据类型了，均为8（字符串），但我之前都己经尝试过将：Trim(request.Form("name"))改为：trim(cstr(request.form("name"）))
       将 ma=Trim(request.Form("password"))改为：trim(cstr(request.form("password"))) 但故障依旧，请问这是为什么？请指示，谢谢！

'If hao<>"" And ma<>"" Then
        Dim rs,strsql
         Set rs=server.CreateObject("adodb.recordset")
           strsql="select* from users where name='"& hao &"' and password='"& ma &"'"
           rs.open strsql,db,1,1
  '         End if


红色的注释下在运行。你可能没执行到，后面你该懂得了。

谢谢板主的指示，问题如然是出于此处，但令我有一点不解的就是：“If hao<>"" And ma<>"" Then ”这个判断为什么会不成立，从而不会连接rs记录集呢？如果按照我本人的思路：如果有信息输入到form表单中，就打开记录集......这样的想法应该会没问题吧？但为什么会有这样的出错呢？这真让我百思不得其解，如果要按我的思路去做，那么程序应该要怎样的执行呢？？请板主指示吧，谢谢！