ASP.NET - COMO GRABAR EN DIFERENTES TABLAS

Amigos del Foro muchas gracias por su atención, soy nuevo en programación ASP.NET.
Estoy realizando una aplicaciòn contable con ASP.NET, base de datos SQL server 2000 y visual basic.net...

PROBLEMA.- Tengo 2 tablas, la una se llama CONTB_SECUENCIAL en la que almaceno los secuenciales con los que debe iniciar un DIARIO CONTABLE, estos son los campos y valores de la tabla:
INGRESO EGRESO DIARIO ASIENTO RETEN_FUENTE RETEN_IVA
0000001 0000001 0000001 0000001 0000001 0000001

Ahora bien cuando yo creo un DIARIO CONTABLE DEBE TOMAR EL VALOR DE LA TABLA SECUENCIAL CORRESPONDIENTE AL CAMPO DIARIO(0000001), de forma automatica ej:

WEB FORM ASIENTOS CONTABLES
DIARIO Nª 0000001 FECHA 01/03/2008 PROVEEDOR XXXX
DIRECCION XXXXX
CIUDAD XXXXXXX
PRODUCTO 1 CANTIDAD 1 VALOR 1000 TOTAL 10000
PRODUCTO 2 CANTIDAD 10 VALOR 50 TOTAL 500
VALOR TOTAL 10500

AL GRABAR EN MI TABLA CONTB_ASIENTO SE DEBE GRABAR,en el campo NUM_DIARIO 0000001

PERO CUANDO VOY A INSERTAR UN NUEVO APARTE DE ESTE QUE YA INSERTE EL SECUENCIAL DE LA TABLA CONTB_SECUENCIAL del campo DIARIO DEBE SUMARCE 1, es decir para el nuevo DIARIO sera el secuencial 0000002
ESTE NUEVO SECUENCIAL SE DEBE GRABAR EN LA TABLA CONTB_ASIENTO Y DEBE TAMBIEN ACTUALIZAR LA TABLA CONTB_SECUENCIAL y asi con cada registro nuevo queyo grabe o inserte....
COMO USTEDES PUEDEN DARSE CUENTA DIGAMOS QUE INSERTO 20 DIARIO , EN LA TABLA CONTB_SECUENCIAL DEBE ESTAR EL ULTIMO SECUENCIAL QUE SERA 0000020 pero he ahi tambien mi duda como no he creado : INGRESOS, EGRESOS, ASIENTOS, RETEN_FUENTE, RETEN_IVA ej:
INGRESO EGRESO DIARIO A SIENTO RETEN_FUENTE RETEN_IVA
0000001 000001 000001 000001 0000001 000001
........
........
........
........
ETC
0000020
COMO HAGO PARA CUANDO YO DESEE INSERTAR UN INGRESO ó EGRESO ETC, VAYA A LA POSICION QUE CORRESPONDA Y AHI PONGA EL NUEVO SECUENCIAL QUE LE CORRESPONDE A INGRESO, ETC DIGAMOS SERIA 0000002 Y ASI CON EL EGRESO, ASIENTO, ETC

POR FAVOR NECESITO SU VALIOSA AYUDA PUES SOY NUEVO EN ASP.NET MUCHAS GRACIAS

Lee la informacion de ese campo y con un bucle busca cual es el mayor. Cuando lo tengas le sumas uno para la nueva insercion.

Yo hago algo asi para los id de unos contactos:

'Si hay contactos obtengo el valor del codigo de contacto
Dim intCodigo As Integer
While consulta.Read()
If intCodigo < consulta.Item("Cod_Contacto") Then
intCodigo = consulta.Item("Cod_Contacto")
End If
End While
intCodigo = intCodigo + 1

Saludos