Problemas al abrir un registro

[axy108]

Hola y gracias por responder

Mira lo que pasa es que no estoy tratando de obtener los datos del insert si no que primero quiero hacer el insert y despues quiero obtener los datos que inserte, y para esto estoy abriendo el registro de la siguiente manera:

Código:

Public Sub Abre_registro()
On Error GoTo Y:
    Set registro = New ADODB.Recordset
    registro.ActiveConnection = conexion
    registro.Open "historias"
Y:
    If Err.Number <> 0 Then
        MsgBox Err.Description, vbCritical, "Error al abrir un set de Registros"
        End
    End If
End Sub

Y de ahi es de donde quiero obtener el id que menciono en el post anterior.

Espero entiendas mi problema y me puedas ayudar gracias.