¿como obtener el Recordset o ROWID de un INSERT, UPDATE O DELETE?

[crumbs]

hola a todos, he buscado la respuesta en los foros pero no la he encontrado. Mi duda es ¿como despues de realizar un INSERT, UPDATE o DELETE, capturar el recordset o ROWID del nuevo o actual registro insertado o modifcado, o en el caso de un DELETE obtener el ROWID?

Lo he intentado de la siguiente forma pero no me resulta:

Public Function sql_run(sqlrun, ByRef recordsaffected) As Variant
On Error Resume Next
Dim CM As New ADODB.Command
Dim RS As New ADODB.Recordset
vCONN.BeginTrans
CM.ActiveConnection = vCONN
CM.CommandText = sqlrun
Set RS = CM.Execute(recordsaffected)
If Err.Number = 0 Then
vCONN.CommitTrans
Set sql_run = RS
Else
vCONN.RollbackTrans
End If
Set CM = Nothing
End Function

Gracias.

JR.