Kod Söz Dizimi Hatası

[omeryılmaz]

Merhaba Arkadaşlar;

Kullanıcılardan birinin paylaştığı Randevu Kayıt çalışması örneğini incelemek istedim. Ancak görüntü ve dosyadan anlaşılacağı üzere "sorgu ifadesi içindeki tarihte söz dizimi hatası" vermektedir. Çözümünü bulamadım..

Sub yeniden_bul(dr As String, trh As Date)
Dim s1 As Worksheet
Dim s2 As Worksheet
Dim rst As Object
Set s1 = ThisWorkbook.Sheets("data")
Set s2 = ThisWorkbook.Sheets("doktor")
Set rst = New ADODB.Recordset
son1 = s1.[a65536].End(3).Row
son2 = s2.[a65536].End(3).Row
ComboBox1.Clear
saat = CDate(Format("08:00", "hh:nn"))

j = 0
For q = 0 To 71 'buton sayısı
Set conn = econn
conn.CursorLocation = adUseClient
sqlStr = "select rowid,Tarih,Saat,[Adı Soyadı] from [data$a1:I" & son1 & "]" _
& "dt left outer join [doktor$a1:d" & son2 & "] dr on dt.[Doktor]=dr.[Kod] where [Doktor]='" _
& dr & "' and cdate(Tarih)=#" & trh & "# and Saat=#" & saat & "#;"
rst.Open sqlStr, conn, 1, 1
If rst.EOF = True Then
ComboBox1.AddItem
ComboBox1.Column(0, j) = Format(saat, "hh:nn")
j = j + 1
saat = saat + CDate(Format("00:10", "hh:nn"))
Else
saat = saat + CDate(Format("00:10", "hh:nn"))
End If
rst.Close
Next q
son:
Set rst = Nothing
conn.Close: Set conn = Nothing
Set s1 = Nothing: Set s2 = Nothing
End Sub



Yardım ve önerileriniz için şükranlarımı sunuyorum..