Claro es verdad la fila ya existia en otra tabla y esto causa el error, pero lo que hice fue usar import del datatable y anduvo!
asi:
Código:
Function GetContacto(ByVal id As Integer) As SchemaContacto
'Esto hereda la estructura del registro contacto
Dim newContacto As SchemaContacto.ContactoRow
Dim auxCont As New SchemaContacto
'Busco el registro solicitado los campos del registro
newContacto = Contactos.Contacto.Rows.Find(id)
auxCont.Contacto.ImportRow(newContacto)
Return auxCont
End Function
Gracias por la ayuda
