mmm.. me parece raro porque tu code no lo veo mal... estás seguro que tu objeto textbox se llama txtNumsocio ??
Cita: oDataMaxSocio = oComandMaxSocio.ExecuteReader
Por cierto... te sugiero que mejor uses ExecuteScalar

para que te regrese inmediatamente el valor..
ejemplo:
Cita: ...
oMaxNumsocio.Open()
a = CInt(oComandMaxSocio.ExecuteScalar())
oDataMaxSocio.Close()
a = a + 1
Me.txtNumsocio.Enabled = True
Me.txtNumsocio.Text = a
Salu2