Se usi i recordset sostituisci le proprietà field con le proprietà collect... è una proprietà nn documentata ma ke ti fa guadagnare un 20-25% in fatto di prestazioni.

esempio:
se hai
rs.Fields("NOME")
diventa
rs.Collect("NOME")