SQL Sorgu cümlesi yazma

[gokmensen]

öncelikle site için emeği geçen herkese çok teşekkürler. sorum şu şekilde:

Dim Rky As Object, Ert As Object
Dim Sorgu As String
Dim ara As Long
Dim sehir As String

ara = CLng(Sheets("anasayfa").Range("a3").Value)
tarih= Sheets("anasayfa").Range("b3").Value

Rky.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.Path & "\data.xlsm" & ";extended properties=""excel 12.0;hdr=yes"""

Sorgu = "Select * from [data$] where `tarih` ='" & tarih& "' and `sehir` = '" & sehir & "'"

Ert.Open Sorgu, Rky, 1, 1

türkçe karakteri ingilizceye çevirdim, tırnaklara boşluklara dikkat ettim, bir türlü dataları getiremedim. sorgu kısmında nerede hata yapıyorum?

 

[Mehmet Şahin]

Şöyle bir kuşbakışı ile,

Field başlıklarındaki tırnakları temizleyip deneyiniz.

 "Select * from [data$] where [COLOR=Red][I]tarih[/I][/COLOR] ='" & tarih & "' and [I][COLOR=Red]sehir[/COLOR][/I] = '" & [COLOR=SeaGreen][B]sehir[/B][/COLOR] & "'"

Ayrıca;
"sehir" değişkeni hafızada değilse, tanımlanmamış gibi. Tabii ki
"data" adlı bir sayfanın varolduğunu kabul ediyoruz. İyi çalışmalar.