FoxPro/Visual FoxPro - VFP 60 + ADO + SQL

Hola: Estoy programando en ADO,VFP,SQL tengo el siguiente codigo y no me adiciona el registro a la base de datos SQL.

Local Err,cOldErr
cOldErr = On ("error")
On Error Err = .F.
oRecordset.ActiveConnection.BeginTrans
oRecordSet.AddNew
with oRecordSet
.Fields("Tipo_Emp").Value = val(Thisform.cboTipo_Emp.Value)
.Fields("Tipo_Doc").Value = alltrim(Thisform.cboTipo_Doc.Value)
.Fields("Sucursal").Value = val(Thisform.txtSucursal.Value)
.Fields("Patronit").Value = val(Thisform.txtPatronit.Value)
.Fields("Nit_Dv").Value = val(Thisform.txtNit_Dv.value)
.Fields("Nombre").Value = alltrim(Thisform.txtNombre.value)
.Fields("Direccion").Value= alltrim(Thisform.txtDireccion.value)
.Fields("Telefono").Value = val(Thisform.txtTelefono.value)
.Fields("CodDpto").Value = alltrim(Thisform.cboDpto.value)
.Fields("CodMpio").Value = alltrim(Thisform.cboMpio.value )
.Fields("Patronal").Value = val(Thisform.txtPatronal.value)
EndWith
oRecordSet.UpdateBatch
if Err
=messagebox("Error")
oRecordSet.ActiveConnection.Rollback
oRecordSet.CancelBatch
else
=messagebox("Grabado")
oRecordSet.ActiveConnection.CommitTrans
Endif
On Error &cOldErr

Que debo de hacer para actualizar con Ado.
Tienen documentacion para VFP con ADO

Gracias