Visual Basic.NET - Consulta que regrese regsitros con el mismo dato dentro de un rango de datos

Consulta = "SELECT TOP 5 ID, * FROM AQL WHERE Status = 'Rechazado' ORDER BY ID DESC"

Consulta = "SELECT TOP 5 ID, * FROM AQL WHERE Codigo = 1 AND Status = 'Rechazado' ORDER BY ID DESC"

Consulta = "SELECT TOP 5 Codigo, * FROM AQL WHERE Codigo = '1' AND Status = 'Rechazado' ORDER BY Codigo DESC"

        ' *** 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

Consulta = "SELECT TOP 5 codigo, * FROM TLotesInspeccionados WHERE codigo = '1' AND status = 'Rechazado' ORDER BY codigo DESC"