problemas al recuperar un valor

[Esfinge02]

saludos, estoy tratando de recupera un valor de un listbox, sin embargo cuando selecciono cualquier otro valor aparte de que ya esta seleccionado, me aparees un mensaje "La columna 'IdProducto' está restringida para ser única. Ya está presente el valor '3'.", la verdad no lo entiendo ya que solo lo estoy seleccionando no se a que se deba, alguna idea aquí abajo pongo la manera en que trato de recuperar el valor.

Private Sub btnguardar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar2.Click
'recuperar el valor de la lista
Dim proc As DataRowView = ltsproc.SelectedItem
Dim idpr As String = proc.Row(0).ToString

Dim cant As Integer = txtcan.Text
Dim pre As Decimal = txtpre.Text
Dim pacpre As Decimal
Dim idp As Integer = Convert.ToInt32(idpaq.Text)
Dim labpre As String = Convert.ToString(preacmulado.Text)
If (labpre = "") Then
'actualisar el precio del paquete
pacpre = pre
preacmulado.Text = Convert.ToDecimal(pacpre)
Else
pacpre = pre + labpre
preacmulado.Text = Convert.ToDecimal(pacpre)
End If

'insertamos el nuevo producto
Dim insprocdetll = ConDetalle_Paquetes.insproductoPaquete(idpr, pre, idp)
'consuta los productos del paquete
Dim actProc = ConDetllProcPaq.conPaqDtll(idp)
Me.dtwprocpaq.DataSource = actProc
txtcan.Text = ""
txtpre.Text = ""
End Sub

[Esfinge02]

bueno des pues de un rato y dejarlo de lado por mas de 6 horas (que diablos ise en ese tiempo a si ya me acorde), me percate al revisar las propiedades del listbox que la opción de determinar un valor estaba seleccionada, valla esta opción nos permite actualizar o insertar un valor en una tabla determinada y este estaba queriendo insertar en la misma tabla y por eso el error solo le puse ninguno y asunto arreglado, bueno orita ya casi termino todo el proyecto así que seguiré solo que me acorde de contestar esto XD.