Lo mas facil es que el campo Nro_cargo sea de tipo Autonumerico; ya que cada vez que insertas un registro el solo se incrementa.
Pero si no lo tenes asi o no lo queres hacer asi; lo que podes hacer es tomar el valor maximo de este campo y a este valor sumarle 1; y el resultado de eso lo guardas en la BD
Código:
Dim siguiente As Integer
Set Mirecordset = Conexion.Execute("SELECT MAX(Nro_cargo) FROM tabla")
siguiente = Mirecordset(0) + 1
' Y despues lo agregas en la BD y mostras el mensaje Aunque insisto en que lo mas facil es que el campo sea de tipo
Autonumerico.
Espero te sirva
Saludos
