Infracción de restricción de primary key

El error completo es infracción de restricción primary key pk_relaciones, no se puede insertar una clave duplicada en el objeto dbo. Relaciones

Sin alguien me pudiera ayudar se lo agradecería mucho

Aclaro que en la tabla no hay registros duplicados, la cosa es que no me deja guardar nuevos registros en la tabla de nombre relaciones

Este es el código

Public Function insertar(ByVal dts As vRELACIONES) As Boolean
Try
conectado()
cmd = New SqlCommand("insert_RELACIONES")
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = cnn
Cmd. Parameters. AddWithValue("@RU", dts. GRU)
Cmd. Parameters. AddWithValue("@EMPLEOACTUAL", dts. GEMPLEOACTUAL)
Cmd. Parameters. AddWithValue("@DIRECCION", dts. GDIRECCION)
Cmd. Parameters. AddWithValue("@EMPLEOANTERIOR1", dts. GEMPLEOANTERIOR1)
Cmd. Parameters. AddWithValue("@DIRECCION1", dts. GDIRECCION1)
Cmd. Parameters. AddWithValue("@EMPLEOANTERIOR2", dts. GEMPLEOANTERIOR2)
Cmd. Parameters. AddWithValue("@DIRECCION2", dts. GDIRECCION2)
Cmd. Parameters. AddWithValue("@PAREJAS", dts. GPAREJAS)
Cmd. Parameters. AddWithValue("@PAREJAACTUAL", dts. GPAREJAACTUAL)
Cmd. Parameters. AddWithValue("@DOMICILIO", dts. GDOMICILIO)
Cmd. Parameters. AddWithValue("@PAREJAANTERIOR", dts. GPAREJAANTERIOR)
Cmd. Parameters. AddWithValue("@DOMICILIO1", dts. GDOMICILIO1)
Cmd. Parameters. AddWithValue("@HIJOS", dts. GHIJOS)
Cmd. Parameters. AddWithValue("@HIJO1", dts. GHIJO1)
Cmd. Parameters. AddWithValue("@HIJO2", dts. GHIJO2)
Cmd. Parameters. AddWithValue("@HIJO3", dts. GHIJO3)
Cmd. Parameters. AddWithValue("@HIJO4", dts. GHIJO4)
Cmd. Parameters. AddWithValue("@HIJO5", dts. GHIJO5)
Cmd. Parameters. AddWithValue("@HIJO6", dts. GHIJO6)
Cmd. Parameters. AddWithValue("@NOMBREPADRE", dts. GNOMBREPADRE)
Cmd. Parameters. AddWithValue("@TELEFONOPADRE", dts. GTELEFONOPADRE)
Cmd. Parameters. AddWithValue("@DIRECCIONPADRE", dts. GDIRECCIONPADRE)
Cmd. Parameters. AddWithValue("@NOMBREMADRE", dts. GNOMBREMADRE)
Cmd. Parameters. AddWithValue("@TELEFONOMADRE", dts. GTELEFONOMADRE)
Cmd. Parameters. AddWithValue("@DIRECCIONMADRE", dts. GDIRECCIONMADRE)
Cmd. Parameters. AddWithValue("@HERMANOS", dts. GHERMANOS)
Cmd. Parameters. AddWithValue("@HERMANO1", dts. GHERMANO1)
Cmd. Parameters. AddWithValue("@HERMANO2", dts. GHERMANO2)
Cmd. Parameters. AddWithValue("@HERMANO3", dts. GHERMANO3)
Cmd. Parameters. AddWithValue("@HERMANO4", dts. GHERMANO4)
Cmd. Parameters. AddWithValue("@HERMANO5", dts. GHERMANO5)
Cmd. Parameters. AddWithValue("@HERMANO6", dts. GHERMANO6)
'cmd.Parameters.AddWithValue("@VEHICULOS", dts.gVEHICULOS)
'cmd.Parameters.AddWithValue("@TIPO1", dts.gTIPO1)
'cmd.Parameters.AddWithValue("@MARCA1", dts.gMARCA1)
'cmd.Parameters.AddWithValue("@LINEA1", dts.gLINEA1)
'cmd.Parameters.AddWithValue("@PLACA1", dts.gPLACA1)
'cmd.Parameters.AddWithValue("@TIPO2", dts.gTIPO2)
'cmd.Parameters.AddWithValue("@MARCA2", dts.gMARCA2)
'cmd.Parameters.AddWithValue("@LINEA2", dts.gLINEA2)
'cmd.Parameters.AddWithValue("@PLACA2", dts.gPLACA2)
'cmd.Parameters.AddWithValue("@CASAS", dts.gCASAS)
'cmd.Parameters.AddWithValue("@DIRECCIONCASAS1", dts.gDIRECCIONCASAS1)
'cmd.Parameters.AddWithValue("@DIRECCIONCASAS2", dts.gDIRECCIONCASAS2)
If cmd.ExecuteNonQuery Then
Return True
Else
Return False
End If
Catch ex As Exception
MsgBox(ex.Message)
Return False
Finally
desconectado()
End Try
End Function