Hi all,

Is there a faster way to fill a array from an ADO recordset than that,

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

Thank's

João Batista