Correlativo

[MISTICO77]

TENGO ESTE CODIGO, Y TRATE DE HACERLO COMO DICES, PERO ME SALIO EL SGTE. ERROR = EL CAMPO "DATOS.NRO_CARGO", NO PUEDE SER UNA CADENA DE LONGITUD CERO"

Private Sub Command2_Click()

With TABLA1
.AddNew
TABLA1("NRO_CARGO") = NRO_CARGO
TABLA1("FE_CARGO") = FE_CARGO
TABLA1("RUT") = RUT
TABLA1("NOM") = NOM
TABLA1("DIRE") = DIRE
TABLA1("CIU") = CIU
TABLA1("DCTO") = DCTO
TABLA1("FE_DCTO") = FE_DCTO
TABLA1("CAUSAL") = CAUSAL
TABLA1("MOTIVO") = MOTIVO
TABLA1("RESOL") = RESOL
TABLA1("FE_RESOL") = FE_RESOL
TABLA1("VAL_AD") = VAL_AD
TABLA1("TIPO_IMPTO") = TIPO_IMPTO
TABLA1("ADV") = ADV
TABLA1("IVA") = IVA
TABLA1("OTRO1") = OTRO1
TABLA1("VAL_OTRO1") = VAL_OTRO1
TABLA1("OTRO2") = OTRO2
TABLA1("VAL_OTRO2") = VAL_OTRO2
TABLA1("TOTAL") = TOTAL
TABLA1("FUNCIONARIO") = FUNCIONARIO
CORRELATIVO1
.Update

MsgBox " HA INGRESADO EL CARGO" + " " + NRO_CARGO, 16, "MENSAJE"

End With
TABLA1.Close
BASE.Close

End Sub
================================================== =======

Function CORRELATIVO1()
Dim siguiente As Integer
Set TABLA1 = BASE.Execute("SELECT MAX(NRO_CARGO) FROM DATOS")
siguiente = TABLA1(0) + 1
NRO_CARGO = siguiente
End Function


FAVOR SI ME PUEDES DECIR EN QUE FALLO
DE ANTEMANO TE PIDO DISCULPAS POR MOLESTAR