Merhaba arkadaşlar,
tarih kriterli düşeyarayı bir türlü çalıştıramadım,
neden acaba?

Sayın srkD;
VBA da değişken olarak kriter belirtmek için aşağıdaki kalıbı kullanmalısınız.
Kolay Gelsin.

Private Sub Komut0_Click()

 Me.Metin1 = Dlookup ("DolarAlis", "Tablo1", "Ktarih=#" & Date & "#")

End Sub 

Sayın kural,
bu yazdığınızı denemiştim,
yine denedim, Run-Time error '3075':
'Ktarih=#23.07.2011#' sorgu ifadesi içindeki Tarihte sözdizimi hatası
yazıyor,
örnek belgeyi ekledim, lütfen onun üzerinde deneyip buraya eklermisiniz.

Birde bu şekilde denermisin?
Kolay Gelsin.

Private Sub Komut0_Click()

 Me.Metin1 = Dlookup ("DolarAlis", "Tablo1", "Ktarih=#" & Format(Date, "MM/DD/YYYY") & "#")

End Sub 

Malesef yine olmadı sayın kural hocam.
yine aynı hatayı veriyor.

Aşağıdaki konuyu bir incelerseniz sorununuz çözülecektir.
Tarih Ayırıcı