Puedes intentar utilizar el metodo select en vez del find
Código PHP:
Function GetContacto(ByVal id As Integer) As SchemaContacto
'Esto hereda la estructura del registro contacto
Dim newContacto As SchemaContacto.ContactoRow = Contactos.Contacto.NewContactoRow
Dim auxCont As New SchemaContacto
'Busco el registro solicitado los campos del registro
newContacto = Contactos.Contacto.Select("id='" & id &"'")(0)
auxCont.Contacto.Rows.Add(newContacto)
Return auxCont
End Function
Asi obtienes la fila con ese id, lo que no se si te dejará es hacer es:
auxCont.Contacto.Rows.Add(newContacto)
ya que newContacto es una fila de otra tabla.