ممكن حل مشكله فى اضافه صنف

احبائى اعضاء المنتدى الكرام

عند اضافه صنف تظهر العباره التاليه

number of query valuse and destiontion fields are the sane

وهذا هو الكود

Dim catename, storename, codename, catetype, catecant, paytype, saleoneprice, countity, totalprice As String

catename = TextBox1.Text

storename = ComboBox1.SelectedItem

codename = TextBox2.Text

catetype = TextBox3.Text

catecant = TextBox4.Text

paytype = ComboBox2.SelectedItem

saleoneprice = TextBox5.Text

countity = TextBox6.Text

totalprice = TextBox7.Text

If catename = "" Or catetype = "" Or catecant = "" Or saleoneprice = "" Or countity = "" Or totalprice = "" Then

MsgBox(" من فضلك ادخل جميع البيانات ")

Exit Sub

End If

Try

Dim cm2 As New OleDbCommand

cm2.Connection = cnn

cm2.CommandText = "insert into cate (catename, storename, codename, catetype, catecant, paytype, saleoneprice, countity, totalprice )values ('" & catename & "','" & storename & "','" & codename & "','" & catetype & "','" & catecant & "','" & paytype & "','" & saleoneprice & "','" & countity & "','" & totalprice & "', # '" & DateTimePicker1.Value.ToShortDateString & "' #,'" & Now.ToShortTimeString() & "')"

cm2.ExecuteReader()

MsgBox("تم اضافه الصنف بنجاح ")

TextBox1.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = 0

TextBox6.Text = 0

TextBox7.Text = 0

Catch ex As Exception

MsgBox(ex.Message)

End Try

		Dim catename, storename, codename, catetype, catecant, paytype, saleoneprice, countity, totalprice As String
		catename = TextBox1.Text
		storename = ComboBox1.SelectedItem
		codename = TextBox2.Text
		catetype = TextBox3.Text
		catecant = TextBox4.Text
		paytype = ComboBox2.SelectedItem
		saleoneprice = TextBox5.Text
		countity = TextBox6.Text
		totalprice = TextBox7.Text
		If catename = "" Or catetype = "" Or catecant = "" Or saleoneprice = "" Or countity = "" Or totalprice = "" Then
			MsgBox(" من فضلك ادخل جميع البيانات ")
			Exit Sub
		End If
		Try
			Dim cm2 As New OleDbCommand
			cm2.Connection = cnn
			cm2.CommandText = "insert into cate (catename, storename, codename, catetype, catecant, paytype, saleoneprice, countity, totalprice )values ('" & catename & "','" & storename & "','" & codename & "','" & catetype & "','" & catecant & "','" & paytype & "','" & saleoneprice & "','" & countity & "','" & totalprice & "', # '" & DateTimePicker1.Value.ToShortDateString & "' #,'" & Now.ToShortTimeString() & "')"
			cm2.ExecuteReader()
			MsgBox("تم اضافه الصنف بنجاح ")
			TextBox1.Text = ""
			TextBox3.Text = ""
			TextBox4.Text = ""
			TextBox5.Text = 0
			TextBox6.Text = 0
			TextBox7.Text = 0
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try