Joao,

Check out File #9916 in the downloads section, it has some code to use GetRows and I believe also transposes the array to arrange it by rows and columns. HTH

>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