Borrar en grid

[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()