Vista - How to populate MSChart?

Hi

Hi have this code to populate a MSDatagrid:

adOpenStatic = 3
adLockOptimistic = 3
adUseClient = 3
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Supervisao\Energia.mdb;Persist Security Info=False"
objRecordset.CursorLocation = adUseClient

objRecordset.Open QueryHistEnergia, StrCnn ,adOpenStatic, adLockOptimistic

Set HistoricoEnergia_DataGrid1.DataSource = objRecordset


Please help me to build code for populate MSChart1


Data base Filds:

Date, Rate1, Rate2, Rate3

MSChart1:

X axis= Date
Y axis= Rate1 , Rate2, Rate3


Tanks

H.