ساعدوني في هذا الكود لحذف مستخدم

السلام عليكم

اعمل function بلشكل التالى

     Public Function SearchInsert(ByVal Table As String, ByVal field As String, ByVal Txt As String) As Object
        Dim x As Object = Nothing
        Dim cmd As SqlCommand = New SqlCommand
        Try
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "select * from " & Table & " where " & field & " = '" & Txt & "'"
            cmd.Connection = con
            ConnectDb()
            x = cmd.ExecuteScalar()
            cmd.Dispose()
        Catch ex As SqlException
            MessageBox.Show(ex.Message)
        Finally
            DisconnectDb()
            cmd.Dispose()
        End Try
        Return x
    End Function

قبل الحذف ممكن تختبر بلشكل التالى

  Dim Return_Object As Object = cls.SearchInsert("Tbl_Country", "Country_id", Me.TXT_Country_id.Text.Trim)

هنا هترسل اسم الجدول + الحقل + اداة النص

الشرط

      If Return_Object = Nothing Then
            CMessageBox.Show(" هذة الدولة  " & " ( " & Me.TxtConvName.Text & " )" & " غير مسجلة فى البرنامج ", " تنبيــة   ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            ClearText()
            Fill_DataGridShow()
        Else

            cls.Country_id = CInt(Me.TXT_Country_id.Text.Trim)
            Dim Return_success As Object = cls.DELETE_Country()

يعطيك العافيه اخوي

راح اعمل بنفس الخطوات واعطيك النتيجة بعد التجربه

تحياتي لك