Selamlar. Liste kutusunun kolon sayısını kodlara göre uyarlayınız. İstenen sonucu doğru anlamışsam aşağıdak kodlar işinizi görecektir. Tabi ihriyacınıza göre uyarlamanız gerekecek.

Private Sub KMTEKLE_Click()
Dim intIstasyon As Long
Dim intUnvan As Long
Dim adiSoyadi As String
Dim strIstasyon As String
Dim strUnvan As String

intIstasyon = Nz(AKISTASYON)
strIstasyon = Nz(AKISTASYON.Column(1))
intUnvan = Nz(AKUNVAN)
strUnvan = Nz(AKUNVAN.Column(1))
adiSoyadi = Nz(MTNADSOYAD)

LSTKATILIMCI.AddItem "" & intIstasyon & "; " & intUnvan & " ;" & adiSoyadi & "; " & strUnvan & ";" & strIstasyon & " "

End Sub