Suppose if you have the people with same name but different country then you can do like this.
Create a dictionary with Key as String, and Value as String Array.
Dictionary = (From p In dta.Select
Group p By Gender=p("Name").ToString Into GroupA = Group
Select GroupA).ToDictionary(Function(x) x(0)("Name").ToString,Function(y) y.Select(Function(z) z("Country Name").ToString).ToArray)
Now you can get all the counries of the people having same Name.
Suppose if the countries are Unique then you can try like this
Country Name =Dictionary(“Name”)(0).ToString
If You want all the Countries of the people having same name Country Name[] = Dictionary(“Name”)