Sorgu = "select * from [yükleme$] where clng(f3) = " & Clng(CDate(TextBox1.Value))
şeklinde dener misiniz?
sadece verilerin gelme formatı mı sorunlu? siz saat/dk/sn alanlarının görünmesini mi istemiyorsunuz?