Ultimo ID generado insertando con Command

[jotamarios]

Hola a todos,

Tengo un problemononon, quisiera obtener el ultimo ID(autoincrement) de una tabla en la que inserto mediante un Command. En lo que encontre veia que proponian usar "IDENTITY", pero al intentarlo con un command, este no me devuelve nada. Como puedo solucionar esto?? Gracias!!

PD: este es el codigo:

Function EjecutarConsulta(ByVal vectorParametros, ByVal query)

Dim rsIngUser, cm, Conn, parametro, tamano

Set cm=Server.CreateObject("ADODB.Command")
cm.CommandType=&H0001
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dictConfig.s_CatalogConnectionString
set cm.ActiveConnection=Conn
cm.CommandText=query
cm.Prepared=true

For i=0 to UBound(vectorParametros,1)-1

tamano=FormatNumber(vectorParametros(i,2))
Set parametro=cm.CreateParameter(vectorParametros(i,1) ,200,&H0001,tamano,vectorParametros(i,0))
cm.Parameters.Append parametro

Next


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


Set EjecutarConsulta=rsIngUser

End Function