1.sql = "SELECT purchaseOrder.OrderID, Customer.CustomerID, Distance.Distance, CarManage.CarID, Vehicle.Cartype, Cost.Cost FROM ((Customer INNER JOIN Distance ON Customer.City = Distance.to) INNER JOIN (CarManage INNER JOIN purchaseOrder ON CarManage.OrderID = purchaseOrder.OrderID) ON Customer.CustomerID = purchaseOrder.CustomerID) INNER JOIN (Vehicle INNER JOIN Cost ON Vehicle.Cartype = Cost.Cartype) ON (Vehicle.CarID = CarManage.CarID) AND (Cstr(Distance.Distance) = Cstr(Cost.Distance)) WHERE (((purchaseOrder.OrderID)='" & txtOrderId.Text & "'))"da = New OleDb.OleDbDataAdapter(sql, Conn)
2. ds.Tables.Clear()
3. da.Fill(ds, "Car")
4. dgvCar.DataSource = ds.Tables("Car")
5. Conn.Close()
