rs 类型不匹配

<%
    '利用Request.QueryString获取传过来的ID编号
    Dim id
    id=Request.Form("id")
    set rs=Server.CreateObject("Adodb.Recordset")
    strSql ="Select * From users where id=" & id
    rs.open strSql,db,1,3
    %>

<table border="0" width="80%" >
        <tr>
            <td width=20%>姓名：</td><td><%=rs(0)%></td>
        </tr>
        <tr>
            <td>电话：</td><td><%=rs(1)%></td>
        </tr><tr>
            <td>email：</td><td><%=rs(2)%></td>
        </tr><tr>
            <td>简介：</td><td><%=rs(3)%></td>
        </tr></table>



请解答??