Database Question

[Luiz Fernando Barbosa]

Hello,
I'm new in Palm Programming. I am having some trouble in the code below . it
returns me "Fatal exception" and i couldn't find the error.
Here's my code,

static Boolean ClientesSaveData()
{

VoidHand myCliHandle = NULL;
sClients *ClientePtr;
FormPtr  frm;
FieldPtr field;
UInt     offset=0;
UInt     index=0;

if (CurrentCliente != noRecordSelected && DmNumRecords(ClientesDB) > 0 &&
  CurrentCliente != 0 )
         myCliHandle = DmGetRecord(ClientesDB,CurrentCliente);
else
  {
   myCliHandle     = DmNewRecord (ClientesDB, &index, sizeof(sClients));
  }

frm = FrmGetActiveForm();

if (myCliHandle)
{
  ClientePtr = (sClients *) MemHandleLock(myCliHandle);
  offset = 0;

  field = (FieldPtr) FrmGetObjectPtr(frm, FrmGetObjectIndex(frm,
ClientesEditCGCField));
  field->text[StrLen(field->text)+1] = '\0';
  DmWrite (ClientePtr , offset, field->text, StrLen (field->text) + 1);
  offset += StrLen(field->text)+1 ;

  field = (FieldPtr) FrmGetObjectPtr(frm, FrmGetObjectIndex(frm,
ClientesEditRazaoField));
  field->text[StrLen(field->text)+1] = '\0';
  DmWrite (ClientePtr , offset, field->text, StrLen (field->text) + 1);


  MemHandleUnlock (myCliHandle);
  DmReleaseRecord (ClientesDB, index, true);
  CurrentCliente = 0;
  return true;
}
}

any help ?

Thanks,

Luiz Fernando