Mensaje enviado por YAMIL BRACHO <brachoy@pdvsa.com>

jfava, para usar el lenguaje shape debes usar como proveedor MSDataShape, asi que la instruccion para conectarte debe ser:

Dim db As Connection
  Set db = New ADODB.Connection
  db.CursorLocation = adUseClient


  db.Open "Provider=MSDataShape;" & _
     "Data Provider=SQLOLEDB.1;" & _
     "Integrated Security=SSPI;" & _
     "Initial Catalog=legajos;" & _
     "Data Source=barracuda"

  Set adoPrimaryRS = New ADODB.Recordset
  adoPrimaryRS.Open "SHAPE " & _
     "{select IdAgente, ApellidoyNombre, FechaNac, CiudadNac, idProvincia, idPais, idEstCivil, Sexo, idTipoDoc, NumeroDoc, EscuelaPri, EscuelaSec, TituloSec, IdAptitud, Legajo, Foto from Foja1} AS ParentCMD " & _
     "APPEND ({select IdAgente, IdParentesco, ApellidoyNombre, Vive, FechaNac, ACargo from Foja2 } AS ChildCMD RELATE IdAgente TO IdAgente) AS ChildCMD", db, adOpenStatic,
adLockOptimistic


Espero esto te ayude y saludos desde Caracas,Venezuela

Yamil