Cells.ClearContents
Sorgu = "select * from [yükleme$] where format(f3,'dd.mm.yyyy') = '" & Format(CLng(CDate(TextBox1.Value)), "dd.mm.yyyy") & "'"
Cells.ClearContents
Sorgu = "select * from [yükleme$] where format(f3,'dd.mm.yyyy') = '" & Format(CLng(CDate(TextBox1.Value)), "dd.mm.yyyy") & "'"