Buen dia les traigo a ustedes mi problematica con la esperanza de que alguien me pueda ayudar a responderla.
tengo un datagridview enlazado a una base de datos, en este datagridview debe de guardar nuevos registros y tambien eliminarlos. El datagridview esta enlazado a la base de datos con el codigo autogenerado por el visual:

Código:

'TODO: This line of code loads data into the 'InvenDataSet1.Productos' table. You can move, or remove it, as needed.
        Me.ProductosTableAdapter.Fill(Me.InvenDataSet1.Productos)

Para guardar los registros se pulsa un boton que aparece un cuadro compuesto que tiene cajas de texto donde se captura la informacion y por medio de un boton la guarda en la datagridview y en la base de datos con el siguiente codigo:

Código:

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles_ Button2.Click
        Dim pro As DataRow
        pro = InvenDataSet1.Tables("Productos").NewRow
        pro.Item("Nombre_del_Producto") = TextBox24.Text
        pro.Item("Marca") = TextBox26.Text
        pro.Item("Precio") = TextBox25.Text
        pro.Item("Categoria") = TextBox27.Text
        pro.Item("Cantidad_disponible") = TextBox28.Text
        InvenDataSet1.Tables("Productos").Rows.Add(pro)
        Me.Validate()
        Me.ProductosBindingSource1.EndEdit()
        Me.ProductosTableAdapter.Update(Me.InvenDataSet1.Productos)
        MsgBox("Guardado")
    End Sub

este codigo funciona a la perfeccion, el problema viene a la hora de querer eliminar los registros, dentro del datagridview tengo una columna con el boton eliminar y con el siguiente codigo intento hacer eso:

Código:

Private Sub guardar_productos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles guardar_productos.Click
        Dim msg = "Desea Guardar cambios?"
        ' Define a title for the message box. 
        Dim title = "Guardar cambios"
        Dim style = MsgBoxStyle.YesNo Or MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Information
        ' Display the message box and save the response, Yes or No. 
        Dim response = MsgBox(msg, style, title)
        ' Take some action based on the response. 
        If response = MsgBoxResult.Yes Then
            Try
                Me.Validate()
                Me.ProductosBindingSource1.EndEdit()
                Me.ProductosTableAdapter.Update(Me.InvenDataSet1.Productos)
                MsgBox("Guardado")

            Catch ex As Exception
                MsgBox(String.Format("No se pudo guardar Error: {0}", ex.Message))
            End Try
        End If
    End Sub

el problema es que cuando se guarda cambios pararece este error:
"No se pudo guardar Error: Datatype mismatch in critteria expression"
he investigado como corregirlo, pero no me funciona las soluciones que he encontrado
alguna idea de como puedo solucionarlo?
gracias de antemano y saludos