@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