The error means that you are casting the each row to

Code:
 For Each msg As JObject In item.Value
And then assignning to

Code:
drNewRow.Item("address") = msg("address")
                            drNewRow.Item("age") = msg("age")
                            drNewRow.Item("health_center") = msg("health_center")
                            drNewRow.Item("prabhag_name") = msg("prabhag_name")
This appears to be some of the value of drNewRow is of 'Newtonsoft.Json.Linq.JProperty' and hence it is not working