Visual Basic - codigos con SQL y Acces

Como hacer que un boton genere en un campo de una tabla de Acces, de nombre codigo, un incremento de este mediante codigo SQL.

LO PRIMERO ES UN CONTROL ADODC VINCULADO CON LA TABLA DE LA BASE DE DATOS DE ACCESS LUEGO HAS SIGUIENTE EN TU BOTON

IF ADODC1.RECORDSET.RECORDCOUNT=0 THEN
ADODC1.RECORDSET.ADDNEW
ADODC1.RECORDSET.FIELDS("CAMPO").VALUE=1
ADODC1.RECORDSET.UPDATE
ELSE
ADODC1.RECORDSET.UPDATE "CAMPO",VAL(ADODC1.RECORDSET.FIELDS("CAMPO").VALUE)+1
ENDIF

ESO SERIA ESPERO TE SIERVA.