' *** Leer los 5 ultimos registros y los poner en DataTable ***
' Aqui, llenamos un DataTable con los ultimos registros de la tabla en la DB (y para testar, mostrar en DGV)
' Consulta = "SELECT TOP " & CuantidadRegistroALeer & " ID, * FROM " & NombreTablaEnDB & " ORDER BY ID DESC"
Consulta = "SELECT TOP 5 codigo, * FROM TLotesInspeccionados WHERE codigo = '1' AND status = 'Rechazado' ORDER BY codigo DESC"
Dim MiAdapter As New OleDbDataAdapter(Consulta, MiConexion)
MiAdapter.Fill(UnaTabla)
UnaTabla.TableName = "TUltimosRegistros"
MiDatos.Tables.Add(UnaTabla) ' Poner la tabla en un DataSet no es siempre necesario
DGVTest.DataSource = UnaTabla ' Mostrar en DGV
MiAdapter.Dispose()
Exit Sub