Excepción al cargar datagrids

[Mary_]

Hola, a ver si alguien tiene idea d q puede ser el siguiente error:

Excepción no controlada del tipo 'System.ArgumentException' en system.data.dll

Información adicional: No se puede habilitar esta restricción ya que todos los valores no tienen los valores primarios correspondientes.

Este error me lo da al cargar unos datagrid en relación maestro-detalle. El código es:

Private Sub CargarDatagrids(ByVal idpaciente)
dbConn = New SqlConnection("server=127.0.0.1;uid=sa;pwd=;databa se=clinica")

Dim sqllesiones As String
sqllesiones = "select lesiones.idlesion,lesiones.fechalesion,lesiones.mo tivoconsulta,lesiones.diagnosticomedico," & _
"lesiones.diagnosticofisioterapico,lesiones.tratam ientofisioterapico,lesiones.fechainiciotrat," & _
"lesiones.numsesiones,lesiones.importe from lesiones,pacientes where pacientes.idpaciente=lesiones.idpaciente and " & _
"pacientes.idpaciente = " & idpaciente

Dim sqlsesiones As String
sqlsesiones = "select * from sesiones"

Dim sqlterapias As String
sqlterapias = "select s.idsesion,t.nombre,s.duracion,s.parametros,s.zona aplicacion from sesionterapia s inner join terapias t on " & _
"s.idterapia=t.idterapia"

dalesiones = New SqlDataAdapter(sqllesiones, dbConn)
Dim cblesiones As New SqlCommandBuilder(dalesiones)

dasesiones = New SqlDataAdapter(sqlsesiones, dbConn)
Dim cbsesiones As New SqlCommandBuilder(dasesiones)

daterapias = New SqlDataAdapter(sqlterapias, dbConn)
Dim cbterapias As New SqlCommandBuilder(daterapias)

dsdatos = New DataSet
Try
dbConn.Open()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try

dalesiones.Fill(dsdatos, "Lesiones")
dasesiones.Fill(dsdatos, "Sesiones")
daterapias.Fill(dsdatos, "Terapias")

dbConn.Close()
dgLesiones.CaptionText = "LESIONES"
dgLesiones.DataSource = dsdatos
dgLesiones.DataMember = "Lesiones"
dgLesiones.AllowNavigation = False

dgSesiones.CaptionText = "SESIONES"
dgSesiones.DataSource = dsdatos
*** dsdatos.Relations.Add("Lesiones_Sesiones", dsdatos.Tables("Lesiones").Columns("idlesion"), _
dsdatos.Tables("Sesiones").Columns("idlesion"))
dgSesiones.DataMember = "Lesiones.Lesiones_Sesiones"

dsdatos.Relations.Add("Sesiones_Terapias", dsdatos.Tables("Sesiones").Columns("idsesion"), _
dsdatos.Tables("Terapias").Columns("idsesion"))

End Sub

El error me lo da n la línea de los '***', gracias.