Visual Basic.NET - #"ERROR DE SISTEMA"

HOLA, LES CUENTO QUE EL SIGUIENTE CODIGO DEBE ACTUALIZAR UNA TABLA "CORRELATIVO_REGISTRO", EL PROBLEMA ES QUE EN LA TABLA NO LO ACTUALIZA, PERO MSI SE QUE INCREMENTA, QUIEN ME PUEDE AYUDAR A SABER POR QUE EN LA TRABLA NO ME ACTUALIZA EL NUEVO NUMERO, GRACIAS, OTRA COSA ME DA ERROR DE SISTEMA, PERO CONTROLO ESE MENSAJE CON EL CATCH AS EXEPTION.

connection.Open()
Dim contador As String
Dim incre As String
Dim resul As String
Dim query As New MySqlCommand("SELECT *from correlativo_registro", connection)
Dim dato As MySqlDataReader = query.ExecuteReader()

While dato.Read()
Dim aux As Integer
aux = dato("num_registro") + 1
regis.Text = aux
Dim actualizacion As New MySqlCommand("UPDATE correlativo_registro Set num_registro='" & aux & "'", connection)
Dim valor As String
Try
valor = actualizacion.ExecuteNonQuery()
Catch ex As Exception
Console.Write("Error" & ex.Message)
Finally
End Try
MessageBox.Show("no" & aux)
End While

Vamos a simplificar algo el codigo que estas usando. Primero si solo estas trayenndo un dato de una tabla lo mas facil es que uses el metodo ExecuteScalar. Asi te quedaria

Dim aux As Integer

Try
Dim contador As String
Dim incre As String
Dim resul As String

connection.Open()

Dim query As New MySqlCommand("SELECT num_registro from correlativo_registro", connection)
aux = CInt(query.ExecuteScalar()) + 1
regis.Text = aux

Dim actualizacion As New MySqlCommand("UPDATE correlativo_registro Set num_registro='" & aux & "'", connection)
actualizacion.ExecuteNonQuery()

Catch ex As Exception
Console.Write("Error" & ex.Message)
End Try
MessageBox.Show("no" & aux)