xxxxxxxxxx<html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link rel="stylesheet" href="/statics/demosource/showrazor.css" /></head><body><span class="marked">@Code Dim db = Database.Open("SmallBakery") Dim dbdata = db.Query("SELECT Name, Price FROM Product") Dim myChart = new Chart(600,400) myChart.AddTitle("Product Sales") myChart.AddSeries("Employees","column",,,,,dbdata,"Name",dbdata,"Price") myChart.Write()End Code</span></body></html>