vb6.0用Mschart控件的问题，请求大家的帮助

Question

我想用MSchart控件以折线图的形式显示ACCESS数据库中一张表格的多组数据，可是我只会现实一组数据，我的代码是这样的
 Dim rs As Recordset
    Dim ws As Workspace
    Dim db As Database    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(App.Path & "\数据库.mdb")
    Set rs = db.OpenRecordset("select * from 0004", dbOpenSnapshot)
    rs.MoveLast
    rs.MoveFirst
    If rs.RecordCount = 0 Then
        MsgBox " 请在数据库总输入数据！", vbCritical
    Exit Sub
    End If
    With MSChart1
    .ColumnCount = 2
    .TitleText = "线状图示例"
 .RowCount = rs.RecordCount
    For i = 0 To rs.RecordCount - 1
    .Row = i + 1    .Data = rs.Fields(4)
    .RowLabel = rs.Fields(3)
rs.MoveNext
    Next i
  
    
    End With
    rs.Close
End Sub