Mschart+vb6+base

Bonjour,
j'ai un probléme au niveau de ma mschart .la présentation est sous forme de 4 courbes au méme temp et il n'a pas prendre en compte les valeur des axes x et y .voici mon code
************************
Private Sub mnuvitesse_Click(Index As Integer)
Dim cn As ADODB.Connection
Dim rs As Recordset
Dim recherche As Boolean
Dim sql As String
i = 1
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 passage,tab_var.parametre,tab_var.date,tab_piece.date,tab_var.valeur from tab_var,tab_piece where tab_var.parametre like '%%vitesse' and tab_var.date=tab_piece.date ; ")
MSChart1.AllowSelections = False
Do While Not rs.EOF
MSChart1.chartType = VtChChartType2dLine
MSChart1.Row = i
MSChart1.Data = rs.Fields("valeur")
MSChart1.RowLabel = rs.Fields(0)
rs.MoveNext
i = i + 1
MSChart1.RowCount = MSChart1.RowCount + 1
MSChart1.RowLabelCount = MSChart1.RowLabelCount + 1
Loop

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
rs.Close
txtparametre.Text = "Vitesse"
sql = "select Max(valeur) as max from tab_var where parametre like '%%vitesse' ;"
rs.Open sql
txtmax.Text = rs.Fields("max")
rs.Close
sql = "select Min(valeur) as min from tab_var where parametre like '%%vitesse' ;"
rs.Open sql
txtmin.Text = rs.Fields("min")
rs.Close
sql = "select AVG(valeur) as moy from tab_var where parametre like '%%vitesse' ;"
rs.Open sql
txtmoyenne.Text = rs.Fields("moy")
rs.Close
sql = "select STDDEV(valeur) as ecart from tab_var where parametre like '%%vitesse' ;"
rs.Open sql
txtecarttype.Text = rs.Fields("ecart")
rs.Close

End Sub

*******************
qq peut m'aider s'il vous plais?????????????,