Como aumentar un registro en un texbox tirando de una base de datos

Tengo un texbox que se aumenta cada vez que le meto un registro nuevo a la base de datos. Me funciona bien hasta que llego a 10 luego no se aumenta, el código que he creado es el siguiente:

Dim resultado_num As String = ""
Dim query_num As String = "SELECT MAX(id)FROM cetelem"
Dim comando_num As OleDbCommand
Dim lector_num As OleDbDataReader
comando_num = New OleDbCommand(query_num, conexion)
lector_num = comando_num.ExecuteReader

If lector_num.Read Then
resultado_num = lector_num(0).ToString
End If
lector_num.Close()
txtcodigo.Text = resultado_num
If txtcodigo.Text = Nothing Then
txtcodigo.Text = 0
End If
txtcodigo.Text = Val(txtcodigo.Text) + 1