FoxPro/Visual FoxPro - UPDATE urgente

me estoy conectando a una base de datos que esta en SQL, la conexion es asi

lcString = Sqlstringconnect("Driver={SQL Server};Server=Cristopher;Database=SisBodega;")

luego de eso necesito buscar un usuario, si el usuario no existe se debera agragarlo a la base de datos, pero si existe me da la opcion modificar y el UPDATE no actualiza en la tabla, este es el codigo


LOCAL lcSQLModUsu
LOCAL lcRut as String
LOCAL lcBodega as String
LOCAL lcGrabaUsu as String

lcRut = ALLTRIM(ThisForm.txtUsuRut.Value)
lcBodega = ALLTRIM(ThisForm.txtNomUsuario.Value)

lcSQLModUsu = 'Select * From Usuario'
If SQLEXEC(lcString,lcSQLModUsu,"CurModUsu") > 0
=SQLSETPROP(lcString, 'Transactions', 2)
lcGrabaUsu = "UPDATE SET Usuario.UsuRut = lcRut Where Usuario.NomUsu = lcBodega"
=SQLEXEC(lcString, lcGrabaUsu) =SQLCOMMIT(lcString) ENDIF

Muchas Gracias