@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.DataBindTable(dbdata,"Name")
myChart.Write()
End Code