مشكلة فى زر الحذف

Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
        Con.Open()
        Try
            Dim mymsg As DialogResult = MessageBox.Show("هل انت متاكد من مسح الصنف" & TextBox1.Text, "مسح", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

            If mymsg = DialogResult.Yes Then
                Dim cmddel As New OleDb.OleDbCommand
                cmddel.Connection = Con
                cmddel.CommandType = CommandType.Text
                cmddel.CommandText = "DELETE FROM Product WHERE ProdutID = '" & TextBox1.Text & "'"
                cmddel.ExecuteNonQuery()
                MessageBox.Show("تم الحذف بنجاح", "", MessageBoxButtons.OK, MessageBoxIcon.Information)DS.Clear()
                Dim Adapter As New OleDb.OleDbDataAdapter(sqlstring, Con)
                Adapter.Fill(DS, "Product")
            End If
            Con.Close()
            fillcombo()
            '    Me.BindingContext(DS, "Product").RemoveAt(Me.BindingContext(DS, "Product").Position)
            '    Me.BindingContext(DS, "Product").Position += 1
            'End If
            'Me.BindingContext(DS, "Product").EndCurrentEdit()
            'Me.Adapter.Update(DS)
            'DS.AcceptChanges()
            'Con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

برجاء المساعدة فى هذا الكود 

لاني بأقوم بمسح بالكود عن طريق المفتاح الاساسي ونوع رقم

بيعطني رسالة خطا  no value given for one or more required parameters

WindowsApplication6.zip