Dim strQueryprice As String 'SQL query string for price. Open ' Create a query that retrieves only four fields. Open strQuery, cn, adOpenKeyset ' rsProducts. Requery ' Set the DataSource to the recordset. Set chart control property With frmChart.
Sets chart fill color to red.
End With With frmChart. With 'Set chart control property With frmChart. Sets chart fill color to red. Close Unload frmChart frmChart. True Loop lblDisplayprocess.