Excelde Eşleşmeyenleri Bul Sorgusunu Çalıştırmak Hakkında Yardım

[erhanngunn]

Merhaba,
OTL_Spek adında bir dosyam var. OTL, OTL_Spek ve Cikanlar isimli sayfalarım var. OTL ve OTL_Spek sayfalarını (REFERANS_NO sütunu baz alarak) karşılaştırarak Eşleşmeyenleri bul sorgusunu çalıştırıp bu sonuçları Cikanlar sayfasına yazdırmak istiyorum.
Bu sitedeki örnekleri inceleyerek kendim bir kod oluşturdum ancak bu kodu tam olarak çalıştıramadım bu koddaki hatam nedir ? Yardımınızı rica ederim.
Aşağıdaki kod “Set rs = con.Execute(sorgu)” satırında hata veriyor

Sub Essiz()
Dim sh As Worksheet, con As Object, rs As Object, sorgu As String
Set sh = Sheets("Cikanlar")
Set con = CreateObject("AdoDb.Connection")
Set rs = CreateObject("AdoDb.Recordset")
con.Open "Provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.FullName & ";extended properties=""Excel 8.0;hdr=yes"""
sorgu = "SELECT [OTL].[SAP STOK KODU], [OTL].[ARÇELİK KODU], [OTL].[MALZEME TANIMI], [OTL].ÜR_NO, [OTL].ÜRETİCİ, [OTL].[ÜRETİCİ SİPARİŞ KODU] FROM [OTL] LEFT JOIN [OTL_Spek] ON [OTL].[REFERANS_NO] = [OTL_Spek].[REFERANS_NO]WHERE ((([OTL_Spek].REFERANS_NO) Is Null)); "
Set rs = con.Execute(sorgu)
For i = 0 To rs.fields.Count - 1
sh.Cells(1, i + 1).Value = rs.fields(i).Name
Next i
sh.Range("A2").CopyFromRecordset rs
sorgu = vbNullString: con.Close
Set sh = Nothing: Set rs = Nothing: Set con = Nothing
End Sub