Ciao ragazzi, non riesco a memorizzare i dati all'interno di un db l'errore che mi da IE è il seguente:

codice:
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: 'recset'
agenti/inserisci_agente.asp, line 43
ecco la pagina e la riga in questione:

codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
' Definisco la variabile
nome = replace(request.form ("nome"),"'", "''")

cognome = replace(request.form ("cognome"),"'", "''")

telefono = replace(request.form ("telefono"),"'", "''")

cellulare = replace(request.form ("cellulare"),"'", "''")

iva = replace(request.form ("iva"),"'", "''")

indirizzo = replace(request.form ("indirizzo"),"'", "''")

civico = replace(request.form ("civico"),"'", "''")

provincia = replace(request.form ("provincia"),"'", "''")

comune = replace(request.form ("comune"),"'", "''")

cap = replace(request.form ("cap"),"'", "''")

email = replace(request.form ("email"),"'", "''")

agenzia = replace(request.form ("agenzia"),"'", "''")

username = replace(request.form ("username"),"'", "''")

codice = replace(request.form ("codice"),"'", "''")
 


if nome <> "" and cognome <> "" and telefono <> "" and iva <> "" then 


url_DB = "driver = {Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("/db/db.mdb")

set conn = server.createobject("ADODB.Recordset")
SQL = "SELECT * FROM agenti WHERE username = '" & username & "'"
recset.open SQL, conn, adopenstatic, adlockoptimistic <--è la riga in questione

if not recset.eof then
usato = true
else
usato = false
end if

recset.close
set recset = nothing


if usato = true then
response.redirect "reg_agente.asp?Id=1"
else


set recset = server.createobject("ADODB.recordset")
SQL = "SELECT * FROM agenti order by ID desc"
recset.open sql, conn, adopenstatic, adlockoptimistic

recset.addnew

recset("nome") = nome

recset("cognome") = cognome

recset("telefono") = telefono

recset("cellulare") = cellulare

recset("iva") = iva

recset("indirizzo") = indirizzo

recset("civico") = civico

recset("provincia") = provincia

recset("comune") = comune

recset("cap") = cap

recset("email") = email

recset("agenzia") = agenzia

recset("username") = username

recset("codice") = codice
 
recset("attivo") = 0

recset.update()
recset.close ()


set recset = server.createobject("ADODB.recordset")
SQL = "SELECT ID FROM agenti WHERE username = '" & username & "' AND codice = '" & codice &"'"
recset.open SQL, conn, adopenstatic, adlockoptimistic


ID = recset("ID")

recset.close
set recset = nothing

conn.close
set conn = nothing
end if
end if
%>
sicuramente sono io che non vedo l'errore scritto, magari con un vostro aiutino riesco a farlo andare grazie in anticipo.