aşağıdaki kodda ne hatası veriyor acaba sorun nedir yardımlarınız rica ediyorum.

Kod hatasını mesajınıza eklemeniz gerekiyor..

resim ekledim ama olmadı galiba dosya olarak ekledim

metin kutusu veya alan adında sorun var onları doğru gir,tarih isminde bir hata var ...
bu arada örneğin halen yok

hocam örnek ekte bi sorundaha çıktı mausenin topunu yürüttüğümde kayıt ekliyor

Eklediğiniz resme göre Dim SD1, SD2, SD3, C As String olarak belirlediğiniz değişkene tarih içeren bir alanı atamaya çalıştığınız görülmekte, sanırım sıkıntınız bundan kaynaklanıyor.