List1 e 40000 bin isim list2 dede 30000 isim listesi var bunları karşılaştırıp farklı olanları list3 aktarmak için yazdığım kod doğruydu 10 ve 15 isim listesi ile denedim sonuçları verdi fakat 40000 ve 30000 bin isim listesini karşılaştırınca program donuyor bende database ile yapmaya karar verdim ve hızlı nasıl karşılaştırabilirim örnek bir kod yazarak bana yardımcı olurmusunuz ?
--------------------------------------------------------------------------------------
List1 ve List2 deki İsim Listesini Karşılaştırıp Farklı Olanı List3 e Aktaran Kod
--------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim i, k, bulunan
For k = 0 To List1.ListCount - 1
bulunan = "0"
For i = 0 To List2.ListCount - 1
If List1.List(k) = List2.List(i) Then
bulunan = "1"
End If
Next
If bulunan = "0" Then
List3.AddItem List1.List(k)
End If
Next
End Sub