[سلام نيس]

شباب الله يكرمكم مساعده 
انا شغال في برنامج مبيعات 
وعملت زر واحد للتعديل والاضافه المشكله انه بيكرر الاضافه عاوز اخلي الاستعلام انه لو الاسم موجود ماتضفيه تاني 
 ده الكود 

كود :

       If Unit.Text = "" Then
           ErrorProvider1.SetError(Unit, "ادخل اسم الوحدة")
           Unit.Focus()
           Exit Sub
       Else
           Dim sql = "select * from Unit where ID=N'" & (ID.Text) & "'"

           Dim adp As New SqlClient.SqlDataAdapter(sql, SQLConn)
           Dim ds As New DataSet
           adp.Fill(ds)
           Dim dt = ds.Tables(0)
           If dt.Rows.Count > 0 Then
               Dim dr = dt.Rows(0)
               dr!Unit = Unit.Text
               Dim cmd As New SqlClient.SqlCommandBuilder(adp)
               adp.Update(dt)
               BtnNew_Click(sender, e)
               MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "رسالة تأكيد")
               showGrid("select * from Unit order by Unit")

           Else

               Dim dr = dt.NewRow
               dr!Unit = Unit.Text
               dt.Rows.Add(dr)
               Dim cmd1 As New SqlClient.SqlCommandBuilder(adp)
               adp.Update(dt)
               BtnNew_Click(sender, e)
               MsgBox("تم الحفظ بنجاح", MsgBoxStyle.Information, "رسالة تأكيد")

               showGrid("select * from Unit order by Unit")

           End If
           End If