1 - siz kodu bambaşka yere yazmışsnız, kodun veri al butonuna eklenmesi yeterlidi siz modüle eklemişsiniz ama butondan çağırmamışsınız
ayrıca hatalı yazmışsınız; kod bir fonksiyon yada sub içine yazılmalıydı siz orta yere yazıp bırakmışsınız, fonksiyonun sonu var ama başı yok o nedenle de hata veriyor.
modüldeki o kısmı tekrar kontrol etmelisiniz.
2 - eğer hem tarih hem de ürün adına göre süzülecekse and bağlacıyla yeni süzgeç eklenebilir

........where clng([Ürün_Kayıt_Tarihi])= " & CLng(CDate(Me.TextBox1.Value)) and [Ürün Adı]='" & comboUrunadi & "'" 

gibi