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