تحديث البيانات

لدي جدول الأصناف واستخدم قاعدة بيانات sqlserver2000

واستخدمت لاسم الصنف combobox يتم من خلاله الادخال والأستعراض

ولكن عند عملية الاضافة يتم الأضافة لكن لا تظهر عملية الاضافة في الcombobox

حاولت اعمل تحديث للبيانات ما قدرت يمكن لاني ما اعرف اعمل تحديث للبيانت

كيف اتمكن من عمل تحديث للبيانات عند عملية الحفظ وفي نفس الوقت تتحدث قاعدة البيانات ارجو التوضيح على نفس الكود المرسل

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
		Dim s As New Double
		Dim t As New Double
		If Val(txtSales.Text) < Val(txtPro.Text) Then
			MsgBox("the price sales is low")
			Exit Sub
		Else
			s = 0
			s = ((Val(txtPro.Text) * 100) / 100)
			t = Val(txtPro.Text) + Val(s)
			If Val(txtSales.Text) > t Then
				MsgBox("the price sales is much")
				Exit Sub
				Dim cmd_insert As New SqlCommand("insert into ITEM values(@ino,@in,@mini,@unit,@open,@sales,@pro)", SqlConnection1)
				cmd_insert.Parameters.Add("@ino", System.Convert.ToInt32(txtINO.Text))
				cmd_insert.Parameters.Add("@in", System.Convert.ToString(txtIN.Text))
				cmd_insert.Parameters.Add("@mini", System.Convert.ToInt32(txtMini.Text))
				cmd_insert.Parameters.Add("@Unit", System.Convert.ToString(txtUnit.Text))
				cmd_insert.Parameters.Add("@open", System.Convert.ToInt32(txtOpen.Text))
				cmd_insert.Parameters.Add("@sales", System.Convert.ToInt32(txtSales.Text))
				cmd_insert.Parameters.Add("@pro", System.Convert.ToInt32(txtPro.Text))
				cmd_insert.Connection.Open()
				cmd_insert.ExecuteNonQuery()
				cmd_insert.Connection.Close()
			End If
		End If
		MsgBox("SAVE THE ITEM", MsgBoxStyle.OKOnly)
		txtUnit.SelectedIndex = 0

وجزاكم الله خيرا

End Sub