Mschart vb6

Bonjour,
je veut faire une courbe avec vb6 dont ses valeurs sont extrés de la base de données . voici mon code:


****************

Private Sub mnuvitesse_Click()
Dim cn As ADODB.Connection
Dim rs As Recordset
Dim recherche As Boolean

Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft OLE DB Provider for ODBC Drivers;Password=mabase;Persist Security Info=True;User ID=root;Mode=ReadWrite;dsn=" & "mybase" & ";"
cn.Open
Set rs = cn.Execute("select * from tab_var where parametre like '%%vitesse'; ")
MSChart1.AllowSelections = False
With MSChart1
.chartType = VtChChartType2dLine
.ColumnCount = 1
.RowCount = 4
For i = 1 To 4
.Row = i
.Column = 1
.RowLabel = rs("valeur")
' .Data = rs.Fields("parametre").Value
Next i
End With
MSChart1.TitleText = "Vitesse"
With MSChart1.Title.VtFont
.Name = "Comic Sans MS"
.Size = 15
.Effect = VtFontEffectUnderline
End With
MSChart1.DoSetCursor = True
MSChart1.MousePointer = VtMousePointerCross

MSChart1.Visible = True
' pour ecrire le titre axe des x
With MSChart1.Plot.Axis(0, 1)
.AxisTitle.VtFont.Size = 14
.AxisTitle.Visible = True
.AxisTitle.Text = "Date"
End With

' Titre pour l'axe des Y côté droit
With MSChart1.Plot.Axis(1, 1)
.AxisTitle.VtFont.Size = 14
.AxisTitle.Visible = True
.AxisTitle.Text = "m"
End With
End Sub

******************
sachant que ma base est sur mysql
donc la resultat et que la courbe s'affiche mais sans les valeur de la base càd par defaut.

s'il vous plais aidez moi
MERCI D'AVANCE