FoxPro/Visual FoxPro - Update - SQL SERVER

tengo un pequeño problema con VFP + SQL SERVER, el problema es exactamente con el UPDATE

te explico un poco el tema,

tengo 1 tabla dodne guardo los correlativos q la llamo Cartilla, esta tiene 3 campos codigo, detalle y registro

Tb_Cart
codi char(2)
Deta Varchar(25)
Reg Numeric(9)


Tb_Cart
Codi - Deta - Reg
C Clientes 0
E Empleados 0
A Productos 5



===============================
lo q necesito hacer es... q al momento q grabo en mi tabla articulos el numero correlativo del campo Reg, se incremente en 1.... te adjunto el codigo, pero este no me trabaja, ojala puedas darme una manito, saludos

sqlConsulta = [Select codi, reg FROM Tb_Cart]
IF Sqlexec(datosql,sqlConsulta ,'SQLCart') < 0
MESSAGEBOX('Ocurrio un error al conectarse al servidor',16)
ENDIF
SELECT SQLCart
Locate FOR codi='A'
IF FOUND()
lcValor = Reg + 1
lcString = [UPDATE SQLCart SET Reg = lcValor WHERE codi = ] 'A'
IF Sqlexec(datosql,lcString) < 0
MESSAGEBOX('Ocurrio un error al conectarse el servidor (Actualizar proyecto)',16)
RETURN
ENDIF
ENDIF

HAS LO SIGUIENTE

OJO EL CAMPO QUE QUIERES QUE SE INCREMENTE DEBE SER TIPO INT (entero)
1-ABRE TU BASE DATOS EN SQL SERVER MANAGER
2.-ABRE LA TABLA EN FORMA DE DISEÑO
3.-POSICIONATE SOBRE EL CAMPO
4.-EN PROPIEDADES DE COLUMNA BUSCA (ESPECIFICACION DE IDENTETIDAD)
5.- SELECIONA IDENTIDAD Y CAMBIALO A SI

NOTA : COMENSARA EL CONTEO A PARTIR DEL ULTIMO REGISTRO EN ADELANTE