Private Sub OrdersQuery_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the '_Sweet_Lil_sDataSet.Orders' table. You can move, or remove it, as needed.
    Me.OrdersTableAdapter.Fill(Me._Sweet_Lil_sDataSet.Orders)

    Dim Connection = New OleDbConnection
    Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=U:Sweet Lil's.mdb"
    Connection.Open()


    Dim sql As String = "Select Orders.[Order ID], Orders.[Customer ID], Boxes.[Box Price], [Order Details].[Box ID], [Order Details].Quantity * Boxes.[Box Price] AS Expr1 " & _
        "((Orders INNER JOIN " & _
                "FROM        [Order Details] ON Orders.[Order ID] = [Order Details].[Order ID]) INNER JOIN " & _
                     "Boxes ON [Order Details].[Box ID] = Boxes.[Box ID]) " & _
    "ORDER BY Orders.[Order ID]"


    Dim da As New OleDbDataAdapter(sql, Connection)
    da.SelectCommand.CommandText = sql
    Dim ds As New DataTable
    da.Fill(ds)
    da.AcceptChangesDuringFill = False
    DataGridView1.DataSource = ds.DataSet()

    Connection.Close()