Renumerar Tabla y Relaciones

[cedido]

Hola de nuevo, la clave principal de la tabla es DNI
-----------------------
-- SOCIOS --
-----------------------
DNI (clave)
NumSocio
Nombre
Apellido1
Apellido2
...
...
...
FechaAlta
.....

Lo que hago es crear una función en VB. net

Código SQL:

SELECT MAX(NumSocio) AS MAXIMO FROM SOCIOS
 

Editado: Código de programación no permitido en foros de Bases de Datos.
Leer las normas del foro, por favor.

Con esa función si el último guardado es 3, en la caja de texto correspondiente a Número de Socio de añade 4, con lo cual, ese campo no se toca a la hora de añadir socio, ya que tengo ese TextBox con la propiedad Enable a False. Así, sólo me preocupo de introducir el resto de datos y guardarlos en la tabla