Suponiendo que tienes un identificador  llamado ID el cual va en incremento por cada nuevo dato ingresado bueno ya esto ahora pasemos al codigo

dim ad as sqldataadapter
dim comando as string
comando = "SELECT TOP 1 * FROM COD_INC Order by ID Desc"
'suponiendoque ya tenemos la variable conexion establecida
ad = new sqldataadapter(comando,conexion)
dim ds as new dataset
ad.fill(ds,"COD_INC")
if ds.tables(0).rows == 1 then
dim dr as datarow
dr = ds.tables(0).row(0)
textbox.text = dr("NombreDeLaColumna").tostring
end if
 

si perdon hehe era

if ds.tables(0).rows.count == 1 then
 

Disculpa, utilice tu código de búsqueda que se descarga en Textbox lo cual funciono muy bien, pero,, si tengo varios resultados con el mismo criterio (Ya que busque por horario no por control por un numero único) como puedo hacer un botón para que al darle siguiente me valla pasando las otras consultas obtenidas.. Gracas