Sorgu = "select * from [yükleme$] where fix(f3) = " & Fix(CDbl(CDate(TextBox1.Value))) & ""
aşağıdaki kodu da deneyebilirsiniz