Hi,

assuming you have ***a lot*** of records to process

local laItems,
.oRS1=.oConnect.Procura_Geral(lcTable)
DIMENSION laItems[.oRS1.RecordCount,2];
.combobox1.aItems[.oRS1.RecordCount,2]
with .oRS1
.MoveFirst
FOR lni = 1 TO .RecordCount
laItems[lni,1] = .Fields('c_codigo').value
laItems[lni,2] = .Fields('c_descri').value
.MoveNext
NEXT lni
acopy (laItems, .combobox1.aItems)

If you get the numerical offsets for c_codigo and c_descri
into 2 memory variables, that will speed it up as well.
Try a local reference for .fields as well.

HTH

thomas