FoxPro/Visual FoxPro - AYUDA DE ALGUN EXPERTO CON SQL!!!

Tengo un programa que accede a tablas de SQL, pues bien yo me conecto bien con SQLCONNECT y todo eso.

Luego yo tengo un botón que es para añadir un nuevo registro y hace lo siguiente:

SQLPrepare(nControl,"select * from medico order by codmed",
"sql_medico")
SQLExec(nControl)
sele sql_medico
go bott
cCod=alltrim(sql_medico.codmed)
cNuevoCod=padl(int(val(cCod))+1,6,'0')
cCadena="insert into medico(codmed) values('"+cNuevoCod+"')"
SQLPrepare(nControl,cCadena)
SQLExec(nControl)

Hasta ahí todo bien, pero no se me actualiza la tabla ni los text de los formularios. Tengo que cerrar el programa y volverlo a abrir para poder ver ese nuevo registro.

Alguien sabe como puedo hacer para que cuando actualize o modifique se actualize en el momento. Y si tengo que actualizar primero el cursor o directamente la tabla de SQL y como se hace.

Gracias de ante mano.

TE ENVIO ESTE EJEMPLO....
SALUDOS DESDE VERACRUZ, VER. MEXICO

local cadenadedatos

with thisform
* sqlexec(nHandle,"INSERT INTO usuarios (clave,nombre,mail) VALUES (14, 'Manuel Portugues Garcia','[email protected]')" )
select tempo
locate for clave=val(.text1.value)
if !found()
cadenadedatos=allt(.text1.value)+",'"+allt(.text2.value)+"','"+allt(.text3.value)+"'"
wait cadenadedatos window
sqlexec(nHandle,"INSERT INTO usuarios (clave,nombre,mail) VALUES ("+cadenadedatos+")" )
sqlexec(nhandle,"SENDUPDATES(.T.)")
else
messagebox("Clave existente en la base de datos...","Sql")
endif

sqlexec(nHandle,"Select * from usuarios order by clave ","tempo")

*- graba en una tabla local los registros del temporal de la consulta SQL
select 1
zap
append from dbf("tempo")

*- muestra en un cuadro de lista los registros de la tabla
.list1.clear
select 1
go top
do while !eof()
thisform.list1.additem(str(clave)+" "+nombre)
skip
enddo
endwith