Se a aplicacao estiver em maquina local faca um select quando for iniciar um novo cadatro.

rs.open "select codigo from clientes order by codigo desc",con............

txtcodigo.text = rs!codigo + 1

rs.close

Agora se estiver rodadndo em rede e pode acontecer de varios usuarios cadastrarem ao mesmo tempo vc tera problemas e o mais correto a ser feito e gravar um indice no inicio do cadastro e quando terminado fazer apenas um update no codigo certo.