Ultimo ID generado insertando con Command

[jotamarios]

Hola, muchas gracias por su ayuda. Con el articulo que posteo Muzzteing, microsoft especifica que ese metodo se debe aplicar a un recordset, y recalca que puede ser el mismo, asi que lo use de esa manera, pero me sigue generando el error:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'rsIngUser.ExecuteNextRecordSet'

Esta es la forma en que lo uso:

Query="INSERT INTO registro (ipsolicitud, exito, fechayhora, transaccion, descripcion ) VALUES
(?,?,?,?,?);SELECT @@IDENTITY AS Identidad"

Set rsIngUser = Server.CreateObject("ADODB.Recordset")
Set rsIngUser=cm.execute()

Set rsIngUser=rsIngUser.ExecuteNextRecordSet()

If Not rsIngUser.EOF Then
Response.Write("Valor del recordset:"&rsIngUser(0))
End If


Y ahora? quien podra ayudarme?!