主题：json数据如何取出，复制到表中啊？

下边是通过钉钉接口，传输的数据；如何将所有的jo("department")(i)("name")复制到某个表中？不会是对表进行 addnew，然后赋值吧？

Dim hc As New HttpClient("https://oapi.dingtalk.com/department/list?access_token=b62d3117acab300287db3114390713d5")
Dim ret As String = hc.GetData()
Dim jo As JObject = JObject.Parse(ret)
For i As Integer = 0 To jo("department").Count - 1
messagebox.show(jo("department")(i)("name"))
Next