Recuperar o cargar el último registro insertado

Estimado Gambini:

Puedes probar lo sigiuente:

Asumamos que tenemos una base de datos llamada Inventario y una Tabla
llamada orden:

Dim StrCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Inventario\Inventario.mdb;Persist Security Info=False"
Dim StrSQl As String = "SELECT * FROM Orden"
Dim da As OleDbDataAdapter = New OleDbDataAdapter(StrSQl, StrCnn)
Dim dt As DataTable
' Crear los comandos de insertar, actualizar y eliminar
Dim cb As New OleDbCommandBuilder(da)
' Como hay campos con caracteres especiales,
' al usarlos incluirlos entre corchetes.
cb.QuotePrefix = "["
cb.QuoteSuffix = "]"
' Asignar los comandos al DataAdapter
' (se supone que lo hace automáticamente, pero...)
da.UpdateCommand = cb.GetUpdateCommand
da.InsertCommand = cb.GetInsertCommand
da.DeleteCommand = cb.GetDeleteCommand
'
' Esta base de datos usa el ID con valores automáticos
da.MissingSchemaAction = MissingSchemaAction.AddWithKey
'
dt = New DataTable
' Llenar la tabla con los datos indicados
da.Fill(dt)
Dim dr As DataRow
Dim nPos As Integer
' Obtenemos la posición del Registro, la que quieres el ultimo registro
nPos = dt.Rows.Count
dr = dt.Rows(nPos)
Dim id As Integer = dr("Id")
' Y con esto creo que obtienes la informacion que requieres
Espero que te sirva

saludos

Roberto
"gambini" wrote:

Hola a todos. Su ayuda, por favor.
Necesito recuperar o cargar en un dataset o datatable(lo que más convenga)
el ULTIMO REGISTRO insertado en una Base de Datos física. Más
específicamente, me intereza el valor del Id de dicho registro, lo cual es
autoincremental.
Saludos