Kişiye Göre Açılır Listeden Rapor Almak

Şöyle bir kodu nasıl düzeltiriz. Maruz görün lütfen.

Dim list As Variant

For Each list In Me.Liste.ItemsSelected

 DoCmd.OpenReport Me.Liste.ItemData(list.coloumn(1)), acPreview, , "sirano=" & Me.kimo, acWindowNormal

 Next list

Rapor adlarının 2. sütunda olduğunu varsayarak

Dim list As Variant

For Each list In Me.Liste.ItemsSelected

 DoCmd.OpenReport Me.Liste.coloumn(1,list), acPreview, , "sirano=" & Me.kimo, acWindowNormal

 Next list

"method or data member not found" hatası verdi.

Sira no=sayısal bir ifade olduğu için "tırnak" lamada mı problem var acaba

Gerçi metod yanlışlığı hatası veriyor.

Liste kutusuna yazdığınız kod ne?
Liste kutunuzda kaç sütun var?
Yazdırma kodunuz ?