Traer id del mismo formulario

[marcocho2005]

ors.open strSQL, cnn
id = oRs.fields("id")%>

Al hacer esa consulta tratas de insertar nuevamente
mejor trabaja con el query que te mande hace un moemento

//Buscas el ultimo Registro hecho
Set RsUltimo = Server.CreateObject("ADODB.Recordset")
SQL = "Select Top 1 id From Tabla Order By id Desc"
RsUltimo.Open SQL, Cnn, 3

//Muestra un Mensaje con el numero de id
Msgbox "Ultimo registro: " & RsUltimo("id")

eso te funcionara muy bien