listview içine eklenecek tablo veya sorgu alanlarını bulun, buraya :
lstItem.SubItems(3) = Nz(Trim(rs!borç)) 'eğer alan boş ise hata vermesin diye NZ li yapıyoruz. satırının altına :
lstItem.SubItems(3) = Format(rs!borç, "Currency")
lstItem.SubItems(3) = rs!borç & " TL."
kodlarını ekleyin. Sonuçtan bilgi vermeyi unutmayın.
İlmiyle amel etmeyen hoca bülbül gibi ötse de kargayla bir tut.