老师，从钉钉获取到的信息怎么写入表中，比如下面代码获取到的部门信息，怎么分行写入表中

Dim TX1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim TX2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim access_token As String = Functions.Execute("access_token",TX1.TEXT,TX2.TEXT)

Dim client As DingTalk.Api.IDingTalkClient = New DingTalk.Api.DefaultDingTalkClient("https://oapi.dingtalk.com/department/list")
Dim req As DingTalk.Api.Request.OapiDepartmentListRequest = New DingTalk.Api.Request.OapiDepartmentListRequest()
req.SetHttpMethod("GET")
Dim rsp As DingTalk.Api.Response.OapiDepartmentListResponse = client.Execute(req, access_token)
Dim s As String
For i As Integer = 0 To rsp.Department.count -1
s+= rsp.Department.Item(I).name & vbCrLf
Next
MessageBox.Show(s)