graficas en vb.net

[Zeptimo]

Dim myPane As GraphPane = zg1.GraphPane

' Set the titles
myPane.Title.Text = "My Test Date Graph"
myPane.XAxis.Title.Text = "Date"
myPane.XAxis.Title.Text = "(Y) Hora"

' Make up some random data points

Dim list As New PointPairList()

Dim conexion = New MySqlConnection("la conexion")
conexion.Open()
Dim comando As New MySqlCommand
comando.CommandType = CommandType.StoredProcedure
comando.CommandText = "sp_jmlc"

Dim da As New MySqlDataAdapter(comando)

comando.Connection = conexion

comando.Parameters.AddWithValue("vRuta", 2)
comando.Parameters.AddWithValue("vOperador", 64871)
comando.Parameters.AddWithValue("vFecha", 2008 / 4 / 3)



Dim ds As New DataSet()
Dim dspl As DataSourcePointList = New DataSourcePointList

dspl.DataSource = ds.Tables.Add("sp_jmlc")

dspl.XDataMember = "diff2"
dspl.YDataMember = "estado"
dspl.TagDataMember = "TOSHORRL"
zg1.GraphPane.XAxis.Type = AxisType.Date
Dim myCurve = zg1.GraphPane.AddCurve("tblEstadisticas", dspl, Color.Red)

myCurve.Line.IsVisible = True
zg1.IsShowPointValues = False

comando.ExecuteNonQuery()
comando.Connection.Close()

zg1.AxisChange()


Alguien sabe porque razon no me envia nada ala grafica??

que estoy asiendo mal???


Nota: no marca error, solo muestra la grafica sin datos



saludos...................................