كود استعراض البيانات من أكثر من جدول

Private Sub showbutton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles showbutton.Click
Dim com1str As String = "SELECT Books.Book_Title, Authors.Author, Borrow.B_FullName, Borrow.B_Date, Borrow.Note FROM Borrow INNER JOIN Books ON Borrow.Book_ID = Books.Book_ID INNER JOIN Authors ON Books.Author_ID = Authors.Author_ID"
Dim com1 As New SqlCommand(com1str, conn)
Dim DA As New SqlDataAdapter
conn.Open()
com1.ExecuteReader()
DA.SelectCommand = com1
DA.Fill(DS, "books")
DA.Fill(DS, "Authors")
DA.Fill(DS, "Borrow")
TextBox2.DataBindings.Add("text", DS, "Books.Book_Title")
TextBox3.DataBindings.Add("text", DS, "Authors.Author")
TextBox4.DataBindings.Add("text", DS, "Borrow.B_FullName")
TextBox5.DataBindings.Add("text", DS, "Borrow.B_Date")
RichTextBox1.DataBindings.Add("text", DS, "Borrow.Note")
End Sub