SoloCodigo

Hola amigos soy nuevo en el foro y la verdad es que estoy con un problema que ya me volvio loco
tengo una tabla llamada socio y una prestamos que estan relacionadas a traves de el campo cuil, les muestro el codigo a ver si alguien me puede ayudar
Dim sql1, sql2, sql3 As String
        sql1 = "SELECT   * from socio "
        sql2 = "SELECT  * FROM Prestamo"
        conexion.conectar()
        Dim socioadapter As New SqlClient.SqlDataAdapter(sql1, conexion.dbconnection)
        Dim prestamo As New SqlClient.SqlDataAdapter(sql2, conexion.dbconnection)
        Dim dcParent As DataColumn = conexion.dbdataset.Tables("Socio").Columns("cuil")
        Dim dcChild As DataColumn = conexion.dbdataset.Tables("prestamo").Columns("cuil")
        Dim relation As New Data.DataRelation("socioprestamo", dcParent, dcChild, True)
        conexion.dbdataset.Relations.Add(relation)
el codigo asi de esta manera funciona a la perfeccion pero si yo agrego un where en alguno de los sql string me da el siguiente erro al momento de crear la relation
System.ArgumentException was unhandled:No se puede habilitar esta restricción ya que todos los valores no tienen los valores primarios correspondientes.
por ejemplo si coloco sql1 ="select * from socio where activo ='true'" da ese error al crear la relacion
Alguien que me ayude por favor porq ya me volvio loco
Muchas gracias