Creo que no entendiste el código que puse anteriormente:
Código:
Dim sNumero As String
sNumero = AutoCodigo(rsAddV, "Cod_Venta")
rsAddV.AddNew
rsAddV!Cod_Venta = sNumero
.....
.....
rsAddV.Update
es decir, primero asignas a la variable "sNumero" el valor y después lo añades al recordset.