Datos duplicados en datagrid vb.net

[Aquaventus]

Pruebalo de esta manera...

Código vb.net:

Private Sub grilla_menu_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grilla_menu.CellContentDoubleClick
        Dim k As String
        Dim tota, toot As Integer
        
        ' Se agrega el item seleccionado a la grilla de destino
        Dim existe = False
 
        For Each row As DataGridViewRow In grilla_dia.Rows
            If Convert.ToString(row.Cells("Nombre Menu").Value).Equals(grilla_menu.CurrentRow.Cells("Nombre Menu").Value) Then
                existe = True
            End If
            If (existe = True) Then
                    MsgBox("Éste menú ya fué agregado", MsgBoxStyle.OkOnly, "INFORMACIÓN")
            Else
grilla_dia.Rows.Add(grilla_menu.CurrentRow)
 
            toot = grilla_menu.CurrentRow.Cells("Valor").Value
            tota = TextBox1.Text
 
            k = (toot + tota)
 
            TextBox1.Text = k
                End If
            
        Next
        
    End Sub