Public Class Pants Shared _pta As New AwesomeDataSetTableAdapters.PersonTableAdapter Private _pyle As String Sub Test() Dim pers As AwesomeDataSet.PersonRow pers = _pta.GetDataByPersonId(3).FindByPersonId(3) _pyle = pers.data.RegionRowByFK_Person_Region.RegionCode End Sub End Class