Ekteki örenkte form üzerinde işlem doğru gözükmesine rağman tablodaki alana kayıt olmuyor her seferinde tablodaki alanı boş geçiyor bunun sebebi nedir nasıl düzeltebilirim

Selam
Bir çok uygulamada kullandığım kodlar hata verdi
referanslar da tamam sorun nerde yardımcı olusanız sevinirim

User-Defined Typ not defined

Dim dlg As FileDialog
Dim si As Variant
Dim uzan As Integer
Dim FileName, yeniyol As String
Dim vrtSelectedItem As Variant
If IsNull(Adres_ID) Then: MsgBox "Kayıtlı Veri Yok !!! " & "Kayıtı Veri Olmadan Resim Ekleyemezsiniz": Exit Sub
If Len(Dir(Application.CurrentProject.Path & "\CariResim", vbDirectory)) = 0 Then