açıkçası sorunuzu anladığımı sanmıyorum, çünkü benzer kodları çalışmanızda pek çok yerde kullanılmış.
o kodları inceleyerek zaten yapıyor olabilmeniz lazım.
aşağıdaki kodla yazılan tarihe göre verileri filtreleyip Excel sayfasına aktarabilirsiniz
benzer kodu çıkış tablosuna da uyarlayabilirsiniz.

 Call connection_open

    sql0 = "select * from ürünlist where clng([Ürün_Kayıt_Tarihi])= " & CLng(CDate(Me.TextBox1.Value))

    rs.Open sql0, conn, 1, 1



Worksheets("ürüngiris").Range("a1").CopyFromRecordset rs

rs.Close