Funcion AddNew de recordset (Urgente)

Si el campo ID es el autonumérico, no debes asignarle valor ya que o bien te
dará un error el Update o bien lo omitirá.
Si estás conectando a SQL Server puedes usar el recordest con "SELECT
@@IDENTITY" esto te devuelve el número que se generó por última vez en un
campo autonumérico. Si no, después de hacer el Update, abre de nuevo el
recordset y lees el campo ID, o bien podrías hacer inmediatamente después
del Update, "SELECT MAX(ID) FROM TABLA".

".::." escribió en el mensaje
news:0bfd01c340b3$a106b1c0$
Como puedo obtener el valor de un campo autonumerico, si
estoy creando el campo con la funcion AddNew de un objeto
Recordset por ejemplo coloco el siguiente trozo de codigo

Dim Id As Integer
Dim oCon As Object = CreateObject
("ADODB.Connection")
Dim oRec As Object = CreateObject
("ADODB.recordset")
Dim i As Integer
oCon.Open("Prue")
oRec.Open("Personas", oCon, 3, 3)

oRec.AddNew()

'Id = CInt(oRec("IdPersona")) ¿Esto no se puede?
oRec("Cedula") = "14122784"
oRec("Nombres") = "Jesus"
oRec("Apellidos") = "Baez"
oRec("Sexo") = "M"
oRec("FechaNacimiento") = 21 / 1 / 81
oRec("Tipo") = 1

oRec.Update()