Soru ADO ile Yinelenen Satırları Kaldırma

[leonadies]

Merhaba Üstadlar;

ADO ile "Data" sekmesinden "Sonuc" Sekmesine veri aktarmak istiyorum. Bu işlemi ADO ile yapmam şart. SQL da nasıl bir cümle yazmalıyım ki yinelenen satırlardan sadece benzersizler kalsın ? Özetle Sonuc Sekmesinde (A:B) sütunundan aşağıdaki iki satır yazmalı.
Ve sadece ADO ile yapmam gerekiyor. Diğer makro çözümleme olmamalı.

Kırmızı Elma 5
Sarı Elma 4

Dosyalarım ve kodlarım ekte.

Sub ADO()

Dim Baglanti As Object, Sorgu As String, Kayit_seti As Object

Set Baglanti = CreateObject("AdoDb.Connection")
Baglanti.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _
ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;Hdr=No"""
      
Sorgu = "Select f1,f2 From[Data$]"
Set Kayit_seti = Baglanti.Execute(Sorgu)
Sayfa2.Range("A1").CopyFromRecordset Kayit_seti

Kayit_seti.Close: Baglanti.Close

Set Baglanti = Nothing: Set Kayit_seti = Nothing: Sorgu = ""

End Sub

 

[YUSUF44]

Sorgu = "Select distinct f1,f2 From[Data$]"

olarak dener misiniz?

 

[leonadies]

Valla süper hocam teşekkür ederim.

 

[YUSUF44]

Bu arada örnek dosyanızdaki gibi düzenli tablolarda hdr=no yerine hdr=yes kullanmak daha doğru olur diye biliyorum. Böylece F1,F2 yerine tablo başlıklarınızı kullanabilirsiniz.

 

[leonadies]

Aklımda olsun hocam teşekkür ederim