Visual Basic.NET - BD. Campo Autonumerico al momento de eliminar un registro que siga el No. de correlativo

Dim da AS new oledbdataadapter("SELECT orden, descripcion FROM datos", conexion) 'Estableces la consulta e indicas la conexion a un dataAdapter

dim tablaDatos as new datatable 'Crear una tabla donde volcar los datos

da.fill(tabladatos) 'Llenas esa tabla con los datos devueltos por la consulta SELECT del dataadapter DA

tabladatos.primarykey = new datacolumn () {tabladatos.columns("orden")} 'Estableces una "clave primaria" para realizar busquedas

if not isnothing(datos.rows.find(cint(textbox1.text))) then 'Ahi pregunto si la busqueda del registro escrito devuelve algun resultado

     datos.rows.find(cint(textbox1.text)).delete()

endif

if not isnothing(datos.rows.find(cint(textbox1.text))) then 'Ahi pregunto si la busqueda del registro escrito devuelve algun resultado

     datos.rows.find(cint(textbox1.text)).delete() 'Lo seguis borrando del datatable para futuras eliminaciones y consultas en la misma sesion

       dim comando as new oledbcommand("DELETE FROM datos WHERE orden =" & textbox1.text, conexion)

       Try

               conexion.open()

               comando.ExecuteNonQuery()

       Catch

               msgbox (err.description)

       Finally

             conexion.close()

       End Try

endif