استخراج داده های متنی یک ستون جدول و نمایش آن در یک تسکت باکس

[ali_isp]

سلام مجدد
داده های ستون مشخص رو بصورت دیتا تیبل سلکت کردم
Private Sub Load_Bank8()
Dim con7 As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=" & My.Application.Info.DirectoryPath & "\DB1.accdb")
con7.Open()
Dim da7 As New OleDbDataAdapter("SELECT m_hesab from tb_bedehkar", con7)
Dim dt7 As New DataTable()
da2.Fill(dt7)
con7.Close()


'RichTextBox1.Text = "بابت" + " " + ds7.Tables(0).Rows(i7)("m_hesab").ToString()


'RichTextBox1.Text = "بابت" + " " + ds7.Tables(0).Rows(0)("m_hesab").ToString() + " " + "و" + " " + ds7.Tables(0).Rows(1)("m_hesab").ToString() + " " + "و" + " " + ds7.Tables(0).Rows(2)("m_hesab").ToString() + " " + "و" + " " + ds7.Tables(0).Rows(3)("m_hesab").ToString() + " " + "و" + " " + ds7.Tables(0).Rows(4)("m_hesab").ToString()
End Sub