عدم تكرار البيانات اثناء الحفظ

اتمني ان تفيدك هذه المشاركة

عدم تكرار البيانات

   شكرا استاذ محمد

 الكود لم يعمل معى لكنى حليت المشكلة باضافة else

 الى جملة if   ونجح الكود معى

                                         هذا الكود للافادة  ولو حد من الخبرة وجدو خطاء ياريت يوضحو

  Dim ConnSTR As String = "provider=Microsoft.Jet.OLEDB.4.0;data source=work.mdb;user id=admin;jet oledb:database password=3650001"
        Dim Connect As New OleDbConnection(ConnSTR)
        Dim Ds As New DataSet
        Dim sqlds As New OleDbDataAdapter("SELECT [vn_name] FROM vndor WHERE [vn_name] LIKE '%" & Trim$(Text_vn_name.Text) & "%'", Connect)
        sqlds.Fill(Ds, "vndor")

      
  If Ds.Tables("vndor").Rows.Count > 0 Then
            MsgBox("هـذا الاسم موجـود مسبقاً")
' اذا كان الاسم موجود سوف تظهر رسالة للمستخدم كما تحب 
        Else
            MsgBox("البيانات متاحة للتسجيل")


            Try

                '===== كود الحفظ البيانات
                هنا تكتب اكواد الحفظ 
        
            ' =======  




        End If
        Connect.Close()
        Exit Sub

وضعت الحل ليستفيد الجميع خصوصا المبتدء  مثلى

ملحوظة  لا اعلم مدى كفاءة الكود لانى مبتدء

 ارجو من الخبراء ابداء ملاحظاتهم على طريقة الكود