nel ciclo dovrai mettere un indice all'array (ad esempio x).e incrementi x di 1 ad ogni loop.

frmArray(x) = (Recordset1.Fields.Item("Codice_Casa").Value)

e poi così comè il tutto funziona se hai sempre massimo 20 record (cioè il limite massimo che hai assegnato al tuo array),se diventano di + ti da errore