Tarihte Sözdizimi Hata Uyarısı

[erkankamilonas]

Global Rec As Recordset, Con As Connection

Function Baglan(VeriTabani As String, Sorgu As String)
Set Con = New Connection
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & VeriTabani & "'"
Set Rec = Con.Execute(Sorgu)
End Function

Public Function BaglantiKes()
Con.Close
Rec.Close
End Function

Function KurSorgula(Tarih)
Call Baglan(VeriTabani:="\\sql\MALİYET K SYSTEM\VERİ.mdb", Sorgu:="SELECT * FROM [Günlük Kurlar] WHERE TARİH =#" & CDate(Tarih) & "#")
End Function

Sub KurNe()
Call KurSorgula(Fatura.Range("E1"))
Fatura.Range("F3") = Rec![EUR SATIŞ]
End Sub

Şöyle bir kod bloğum var;
Fatura.Range("E1") hücresi tarih içeriyor. Ancak bu sorguda sözdizimi hatası aldım hata yaptığım yer neresidir yada doğrusu nedir?
Not: Veritabanım MDB

 

[Ferhat Pazarçevirdi]

KurSorgula functionındaki SELECT sorgusunda;

.... CDate(Tarih)

olarak yazdığınız yeri

..... Replace(CDate(Tarih),".","/")

şekilde değiştirip deneyiniz.

 

[erkankamilonas]

çok teşekkür ederim