Kod:
Me.Liste2.RowSource = Me.Metin0
Yazılacak her sorguya göre liste kutusunun sütun sayısının da değişmesi gerekli, ama nasıl yapılacak hiç bir fikrim yok, çözüm bulununcaya kadar sütun sayısını 5 olarak belirle, sütun genişliklerinide düzenle.
Me.Liste2.RowSource = Me.Metin0