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