how send datatable's data by email

[husky_doggy]

i want to email all the data from a datatable from another form.
is there a way i can get all the data at once?
and if I want to sortorder the date in the datagrid, what should I put in the query builder??

 Private Sub emailbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles emailbtn.Click


        Dim message As New EmailMessage
        message.Subject = "test email"
        message.BodyText = ' all data here<<<<

        Dim client As New Recipient("ABD", "[email protected]")
        message.To.Add(client)
        Dim emailsession As New OutlookSession

        emailsession.EmailAccounts("GoogleMail").Send(message)

        MsgBox("email sent")
    End Sub