No me recoge el valor de una variable en un textbox

[sergio26]

Hola a todos:

Tengo una funcion que al añadir un registro comprueba cual es el valor maximo del campo y le suma uno, y al pasarlo al textbox desaparece, sin embargo hago un msgbox de la variable y si tiene el valor

Para que lo veais mejor os pongo el codigo.

Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click, mnuAdd.Click
ComprobarNumsocio()
End Sub

Private Sub ComprobarNumSocio()
Dim a as integer
Try
Dim oMaxNumsocio As New SqlConnection
oMaxNumsocio.ConnectionString = "Server= (local);Database=video;Trusted_Connection=True;"
Dim oComandMaxSocio As New SqlCommand("Select MAX(numsocio) as numsocio from socios", oMaxNumsocio)
Dim oDataMaxSocio As SqlDataReader
oMaxNumsocio.Open()
oDataMaxSocio = oComandMaxSocio.ExecuteReader
oDataMaxSocio.Read()
Me.txtNumsocio.Enabled = True
a= oDataMaxSocio("numsocio") + 1
msgbox (a)
Me.txtNumsocio.Text = a
oMaxNumsocio.Close()
oDataMaxSocio.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try