[alims]

السلام عليكم شباب عندى سؤال و هو
ازاى اقدر اعمل بحث فى قاعدة البيانات عن اسم الشركة و كود الشركة و فى حالة عدم وجود يتم اضافة و فى حالة الوجود تظهر رسائل تفيد اذا كان يريد التعديل ام لا و  بعد ذلك يتم التعديل فى حالة ان المستخدم ضغط بنعم و هذ الكود لى شغل عليه

كود :

  Dim constr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=D:\My Apps\HassanPro\HassanPro\DataB\Database1.mdf;Integrated Security=True;User Instance=True"

    Dim con As New SqlConnection(constr)
   
 If TextBox1.Text = "" Or TextBox2.Text = "" Then
           MsgBox("برجاء ادخل جميع البيانات", MsgBoxStyle.Exclamation, "خطاء")
           TextBox1.Select()
           Exit Sub
           If ConnectionState.Open Then con.Close()
           con.Close()
       End If
       Dim daa As New SqlDataAdapter("select * from Company where (CompanyName=N'" & TextBox1.Text & "')" & " and " & "(CompanyCode='" & TextBox2.Text & "')", con)
       Dim dss As New DataSet
       daa.Fill(dss, "Company")
       Dim msgReturnValue As MsgBoxResult
       If Me.BindingContext(dss, "Company").Count = True Then
           'dg.DataSource = ds.Tables("Company")
           msgReturnValue = MsgBox("عفوأ الاسم الشركة او كود الشركة موجود  ! هل تريد تعديل ام لا ؟", MsgBoxStyle.YesNo)
           If msgReturnValue = MsgBoxResult.Yes Then
               TextBox1.Text = ""
               TextBox2.Text = ""
               TextBox1.Select()
               con.Close()
               Exit Sub
           End If
       Else
           If msgReturnValue = MsgBoxResult.No Then
               TextBox1.Text = ""
               TextBox2.Text = ""
               TextBox1.Select()
               con.Close()
               Exit Sub
           End If
       End If
       Try
           con.Close()
           con.Open()
           Dim da As New SqlDataAdapter("select * from Company", con)
           Dim ds As New DataSet
           Dim cm As New SqlCommandBuilder(da)
           da.Fill(ds, "Company")
           Dim dr As DataRow = ds.Tables("Company").NewRow
           dr.Item("CompanyName") = TextBox1.Text
           dr.Item("CompanyCode") = TextBox2.Text
           ds.Tables("Company").Rows.Add(dr)
           da.Update(ds, "Company")
           con.Close()
           MsgBox("تم الاضافة بنجاح", MsgBoxStyle.Exclamation, "HassanPro")
           'Form3.MdiParent = Form1
           'Form3.Show()
           'Form3.Label4.Text = TextBox1.Text
           'Form3.Label6.Text = TextBox2.Text
           'TextBox1.Text = ""
           'TextBox2.Text = ""
           'Me.Hide()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       'MsgBox("عفؤا يوجد خطاء برجاء اعادة ادخل البيانات فى وقت لاحقا", MsgBoxStyle.Exclamation, "HassanPro")
       'TextBox1.Select()
       Exit Sub

 مع سؤال اخر ازاى  استخدام كل الاكود دى مع BackgroundWorker1 علشان البرنامج يكون فى حالة استجابة عطول
و اخر سؤال عندى عايز المستخدم و هو بيكتب يظهر الاقترحات زاى جوجل كده لما اكتب اسم كتاب مثلا 
و شكرا لكم شبابا