Dim i As Integer
        Dim aa, aa1 As String
        For i = 0 To ds1.Tables(0).Rows.Count - 1
            aa = Trim(ds1.Tables(0).Rows(i).ItemArray(0))
            aa1 += aa
        Next
        TextBox4.Text = aa1