[asemshahen5]

مشكتك بسيطة إذا أردت تعريف متغير فقط ضعه قبل جملة إف و لا تضعه بعد Exit Sub لأن كل ما بعد Exit Sub يصبح غير فعال أي غير مستخدم كما مكتوب .
اما إذا كانت مشكلتك أخرى فعندي جدول ناقص في قاعدة البيانات التي أرسلتها اسمه TB_END

كود :

Private Sub ButtonX2_Click(sender As Object, e As EventArgs) Handles ButtonX2.Click
       If TXT_NAME.Text = Nothing Then
           MessageBox.Show("يجب إدخال إسم الحساب", "نقص", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Exit Sub
       End If
       '------------------------------------------------------------------------
       If TXT_GUID_PARENT.Text = Nothing Then
           MessageBox.Show("يجب إدخال الحساب الرئيسي", "نقص", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Exit Sub
       End If
       '------------------------------------------------------------------------
       Dim DT As New DataTable
       DT.Clear()
       DT = CLS_ACCOUNT_.SEARCH_NAME(TXT_NAME.Text)
       Dim COD__ As Double = 0
       Dim DT_COD As New DataTable
       If DT.Rows.Count > 0 Then
           MessageBox.Show("الإسم موجود من قبل", "تنبيـــه", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Exit Sub
       End If
       '------------------------------------------------------------------------
       DT_COD.Clear()
       DT_COD = CLS_ACCOUNT_.COD_(TXT_GUID_PARENT.Text)
       If DT_COD.Rows.Count > 0 Then
           COD__ = Val(DT_COD.Rows(0)(0).ToString())
       End If
       If COD__ = "0" Then
           COD__ = Val(TXT_CODE_PARENT_GUIDE.Text) + 10001
       End If
       '------------------------------------------------------------------------
       CLS_ACCOUNT_.ADD_(TXT_NAME.Text, TXT_GUID_PARENT.Text, Val(COD__), Convert.ToInt32(CMB_END.SelectedValue))
       MessageBox.Show("تمت عملية الحفظ بنجاح", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)

   End Sub