Visual Basic.NET - Como usar dataset tipado sin asistente

Private Sub CargarDatos()

       Dim NombreDBCompleto As String =  "D:\Tmp\TestAccesDBSimpleConJOIN\MisPersonas.accdb"

        MiConexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & NombreDBCompleto & ";"  ' Ejecutar en x64

        Dim UnaTabla As DataTable

        Dim Consulta As String

Consulta = "SELECT IdPers, XIdLoc, NomPers, Localite FROM

 (TLoc INNER JOIN TPers ON TLoc.IdLoc = TPers.XIdLoc)"

        MiAdapter = New OleDbDataAdapter(Consulta, MiConexion)

        UnaTabla = New DataTable

        MiAdapter.Fill(UnaTabla)

        UnaTabla.TableName = "PersYLoc"

        MiDatos.Tables.Add(UnaTabla)

        MiAdapter.Dispose()

' Relacion

        Dim Domicile As New DataRelation("Domicile", _

              MiDatos.Tables("TLoc").Columns("IdLoc"), _

              MiDatos.Tables("PersEtLoc").Columns("XIdLoc"))

        MiDatos.Relations.Add(Domicile)

        Dim Contrainte As ForeignKeyConstraint = Domicile.ChildKeyConstraint

        Contrainte.DeleteRule = Rule.None

        Contrainte.UpdateRule = Rule.None

End Sub