Sistema de Login gerando error

[guma]

alguém poderia me ajudar a incluir um Insert no meu sistema de login?

<%   
set db = Server.CreateObject("adodb.connection") 'Banco de Dados
set rs = Server.CreateObject("adodb.recordset")  'Tabela de Registros
Set rsInsere = Server.CreateObject("adodb.recordset")

'Path (Caminho) do Banco 
db.open "driver={microsoft access driver (*.mdb)};dbq=" &_
Server.MapPath("db1.mdb")
'Selecionamos o usuario da tabela usuarios.
'Usamos o Replace para garantir a segurança e que o usuário um pouco 
'mais experiente não modifique a sintaxe SQL

rs.open "select * from login where " & "usuario='" & Replace(request.form("txtlogin"), "'", "''") & "' and senha='" & Replace(request.form("txtsenha"), "'", "''") & "'",db
If Not rs.eof Then        
        ' abre o obj para manipulacao
        rsInsere.Open "historico", Conn, 3, 3

        ' inicia a inclusao dos dados
        rsInsere.AddNew

        ' seta os valores a serem incluidos (colunas da tabela)
        rsInsere("usuario") = request("txtlogin")
        rsInsere("data") = Now()

        ' inclui os valores
        rsInsere.Update

        ' fecha conexao e obj recordset
        rsInsere.close

        session("status") = "ok"
        response.redirect("pagina.htm")
        else 'Usuário não encontrado
        'Redirecionamos para a Página de Login e informamos o erro
        response.redirect("negado.htm") 
end if
set rs = nothing 'Destruímos o Objeto
rs.close
%>

Erro

# Tipo de erro:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/sites/testes/Adminis. de usuário/login asp/login.asp, line 16

# Tipo de navegador:

Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR; rv:1.9.0.6) Gecko/2009011913 Firefox/3.0.6

# Página:

POST 25 bytes to /sites/testes/Adminis. de usuário/login asp/login.asp

# POST Data:

txtlogin=adm&txtsenha=123

[bareta]

http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriais