Borrar en grid

[tienda]

Hola amigos, tengo un problema, hago un filtro en un grid...y saco un producto, el problema es que en la tabla tengo ese producto muchas veces, aunque gracias al filtro en la grilla solo sale uno de todos estos, si el usiario quiere borrar el producto puede, pero no borra el que tiene en el grid...me borra todos los que hay iguales en la tabla... tengo hecho esto, me podeis ayudar?¿?

Public Sub borralinea()
'borra linea seleccionada en el datagridview
' Try

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim comandodel As New OleDbCommand

comandodel.Connection = conexion
comandodel.CommandText = "Delete * From Producto Where Asociado = @id"
comandodel.Parameters.AddWithValue("@id", (DgEscandallo.CurrentRow.Cells(0).Value))

conexion.Open()
comandodel.ExecuteNonQuery()
conexion.Close()
conectagrid()

'Catch
'MessageBox.Show("Compruebe su selección", "Aviso de error")
' End Try
End Sub

[tienda]

arreglado, he creado un campo diferenciador...gracias
Public Sub borralinea()
'borra linea seleccionada en el datagridview
' Try

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim comandodel As New OleDbCommand

comandodel.Connection = conexion
comandodel.CommandText = "Delete * From Producto Where Asociado = @id and Producto = @pro"
comandodel.Parameters.AddWithValue("@id", (DgEscandallo.CurrentRow.Cells(0).Value))
comandodel.Parameters.AddWithValue("@pro", (TextProOri.Text))

conexion.Open()
comandodel.ExecuteNonQuery()
conexion.Close()
conectagrid()