Liste Kutusundan Başka Liste Kutusuna Taşıyın

Private Sub lb1_Click()
Dim posn As Integer
Dim find As String

'find and remove selected from txtCando
find = ";" & lb1.Column(1) & ";"
posn = InStr(1, txtCanDo, find)
txtCanDo = Left(txtCanDo, posn - 1) & Mid(txtCanDo, posn + Len(lb1.Column(1)) + 1)
'move selection to lb2
lb2.AddItem lb1.Column(0) & ";" & lb1.Column(1)
lb1.RemoveItem (lb1.ListIndex)
End Sub

Private Sub lb2_Click()
'add selection to txtCando and display in lb1
If IsNull(txtCanDo) Then txtCanDo = ";" 'add leading semicolon to first entry
txtCanDo = txtCanDo & lb2.Column(1) & ";"
lb1.AddItem lb2.Column(0) & ";" & lb2.Column(1)
'remove selection from lb2
lb2.RemoveItem (lb2.ListIndex)
End Sub

Ornek mi yoksa soru mu bu konu, örnekse lütfen örnekler bölümüne acınız.

aslında soru şu bu kodlarla sadece listede değişiklik oluyor bunu kayıtlarda da olacak şekilde ADO ile yapabilir miyiz

bu konuyu admin arkadaşlar tamamen silebilirler mi sitedeki örnek tamamen problemimi çözdü