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

Hmm, maybe, if instead of using the name of the field, you use its index, it might be slightly faster. Like this:

.combobox1.aItems[lni,1] = .oRS1.Fields(0).value
.combobox1.aItems[lni,2] = .oRS1.Fields(1).value