Hi Fernando,

looks ok so far. Nevertheless I would suggest some changes:

Procedure SQLSeek 
 LParameters pHandle, pTable, pWhereCondition

 Local cSelectStr, bFound, lnOldSelect

 IF NOT EMPTY(pWhereCondition)  && Or is there a need to query all records?

   lnOldSelect = SELECT()  && Save old workarea

   *-- No need to select * and transfer the whole record over the wire
   cSelectStr = " Select 1 From " + pTableName + " WHERE " + pWhereCondition
   SqlExec(pHandle, cSelectStr, "CurSQLSeek")

   *-- You might also want to check, if the call to sqlexec succeeded

   bFound = RecCount("CurSQLSeek") > 0
   Use In CurSQLSeek

   SELECT (lnOldSelect)

 ENDIF

 Return bFound

EndProc

HTH,
Armin