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
sql0 = "select * from cikis where clng([Ürün_Cikis_Tarihi])= " & CLng(CDate(Me.TextBox1.Value))
rs.Open sql0, conn, 1, 1
Worksheets("ürüncikisveri").Range("a1").CopyFromRecordset rs
rs.Close
kodu aynen aşağıdaki gibi yazdı o tarihe ait tüm girdi ve çıktıları listeledi siz kodu nereye yazıyorsunuz?