Problema al generar consecutivos en red en una base de access

tema enviado por wilson en Visual Basic 6.0
tema iniciado el 11/08/2006

Hola amigos!

tengo VB6 y una base de SQL y tengo un procedimiento almacenado que se encarga de devolverme un consecutivo al momento de generar el alta de un registro, el procedimiento contiene lo siguiente:

        update tabla set folio_cliente = folio_cliente + 1
        select folio_cliente from tabla

funciona perfectamente, lo uso por si varios usuarios en red intentan grabar al mismo tiempo, no tenga ningun problema.

Mi problema es el siguiente: Requiero ahora que mi aplicacion se pueda trabajar tanto con SQL como con una base de ACCESS, pero como hasta donde yo se access no tiene procedimientos almacenados, necesito ejecutar una sentencia que de un solo golpe me actualice la tabla sumandole uno al consecutivo y que tambien me devuelva el nuevo consecutivo como si ejecutara el procedimiento almacenado de sql. o no se si alguien tenga otra idea o lo maneje de forma diferente que me aporte su idea.

Espero puedan ayudarme con esto, ya que he intentado juntar las sentencias sql pero me manda error al tratarlas de ejecutar.

Estoy conectando mediante ADODB.Recordset

Gracias de antemano y saludos!!