El query deberia ser algo como esto:
Código:
qry = "INERT INTO bla bla bla; SELECT @@IDENTITY AS algun_nombre"
Después llama al método NextRecordSet cuando le hagas el execute a tu comando:
Código:
Dim rs = Server.CreateObject("ADODB.Recordset")
Set rs = cmd.ExecuteNextRecordSet()
if not rs.EOF then
Response.Write(rs(0))
.
.
.
Saludos