Memorizzare id su campo diverso

[[trodat]]

sto provando anche così, ma passa sempre zeo come ultimo record inserito:

Set Conn=Server.CreateObject("ADODB.Connection") 
		strConn="driver={Microsoft Access Driver (*.mdb)}; " 
		strConn=strConn & " DBQ=" & Server.MapPath("users.mdb") 
		strConn=strConn & ";pwd=" & strCodedb
		Conn.Open (strConn)
		strSql = "SELECT * FROM codici WHERE userName='"&strUser&"'"
				
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open strSql, conn, 3, 3		

		if rs.eof then
		
sSQL = "select @@identity FROM codici"
set objRs = Server.createObject("ADODB.recordset")
objRs.open sSQL, Conn, 1, 3
if not objRs.eof then
idrecordinserito = objRs(0)
end if
objRs.Close
set objRs = nothing
	
			rs.addnew
				rs(1)=strUser
				rs(2)=cripta(strCode1,Key)
				rs(3)=strMail
				rs("utente_id")=idrecordinserito
				rs("unita_id")=strCT
			rs.update
			
zSQL = "insert into tUtenti_Unita (utente_id, unita_id) values ("&idrecordinserito&", "&strCT&")"
conn.Execute(zSQL)