çalışmanızı eklememişsiniz; recordsette kullandığınız sorgu kodu yok, döngüye sokulmasını istediğiniz alan adları da yok.
bu durumda sadece bazı ön kabuller yaparak alan adlarınızın Birim Fiyat1,Birim Fiyat2,Birim Fiyat3........Birim Fiyat8 olduğunu varsayarak bir çözüm önerebiliriz

for x =1 to 8

arr(x) = Cozgu__1.Recordset.Fields("Birim Fiyat" & x).Value

next x