Ado ile Sorgu Yardımı

[askm]

Kolay gelsin.
Ekteki dosyada ARABUL sayfasında B1 hücresine yazdığım verilerin Kodlar sayfasından getirilmesini istiyorum. Ama hata veriyor. Sebebi ne olabilir ve nasıl aşarım?
Teşekkürler.

 

[askm]

Sorguyu aşağıdaki şekilde deniyorum olmuyor. Nasıl yapmam gerekir.

Dim deg As String
deg = Sheets("ARABUL").Range("b1").Value

sorgu = "select [SIRA], [KONU],[KODLAR] from [Kodlar$A2:C65000] where [KONU] like '%' & [deg] & '%'"