Como usar el autoincrementar de vb 6.0 en el text1 de la base de datos inventario

me gustaría poder incrementar una unidad al text1 (en la base de datos se llama cod) al ultimo registro de la base de datos inventario. Alguien me puede ayudar, de antemano gracias.