Bu sabah sn. mehmetdemiral hocamla msn de konuşurken ,
bu olayı sormuştum, derse girecem çıkışta hemen bakarım,
kendisinden allah razı olsun, hemen ders arası bana cevap yazmıştı,
hem basit hemde kulanışlı,
diğer seruz ve ayhan hocalarımın tenziye ederim.
onlarınkide güzel tabiki, Sql bilmedigimden seruz ve ayhan hocalarımın örnekleri
bana yabancı geldi.
Mehmetdemiral hocamın kodu aşağıdakidir.

Private Sub Liste2_AfterUpdate()
Dim a, b, c As String
Me.Liste4.RowSource = ""
a = Me.Liste2.Column(1)
b = Me.Liste2.Column(2)
c = Me.Liste2.Column(3)
Me.Liste4.AddItem a
Me.Liste4.AddItem b
Me.Liste4.AddItem c
End Sub
Yardımcı olan bütün arkadaşlarımdan allah razı olsun...