SoloCodigo

Hola
     Tengo un problema para generar codigos automaticamente yo habia hecho un procedimiento en una base de datos de SQL que me salia bien, pero tuve que cambiar la base de datos por una de ACCESS.

Este es el procedimiento que use para la base de datos de SQL:
GO
   CREATE PROCEDURE USP_OBTENER_CODIGO_CLIENTE
   @NuevoCodigo char(6) OUTPUT
   as
     declare @maximo integer
     set @maximo = (select max(convert(int, codcli)) from clientes)
     set @maximo = @maximo + 1
         
   SET @NuevoCodigo = (replicate('0',6 - len(@maximo)) +   convert(char(6),@maximo))

Lo que hace el procedimiento es generar un codigo, depente al numero de registros que tenga una tabla, osea:

Si no hay registros el primer codigo que generara es 000001,conforme se vaya aumentando registros va a aumentando el numero del codigo,algo asi:
Registro numero 2: generara 000002
Registro numero 3: generara 000003
....
...
Registro numero 10: generara 00010
Y asi sucesivamente, lo que necesito es crear un procedimiento similar al de SQL, que me genere el codigo pero para ACCESS.Gracias

Me refiero a crear un procedimiento pero en VB 6,no en ACCESS, no importa la manera, o la forma del codigo y ni las funciones que se usen, la cosa es que salga =)
Mi problema es que no me hago una idea de como hacerlo.