pues primer no se como estas llamando la base de datos usando, serà usando un odbc o ado adodc bueno no importa como la idea es que llamas los datos a un recordset que estes usando. haces que se mueva al ultimo registro (fila) capturas el valor que tiene a una variable(lo que sea), y luego lo incrementas, despuès claro lo llenas y lo guardas.
algo asì
Dim codfactura As Integer
Data1.Recordset.MoveLast
codfactura = Data1.Recordset("codigo_factura")
codfactura = codfactura + 1
esto es lo para que te des una idea. con un objeto data, espero te sirva
