VB用mschart画成一个一个点，连成折线图。

用mschart可不可以画成一个一个点的状况呢？把这些点连在一起。画成折线图。
下面的代码是画出柱状图，请问怎么画折线图呢。

Option Explicit


Private Sub cmd_close_Click()
    Unload Me
End Sub

Private Sub cmd_pic_Click()
    Dim s As String, i As Long, ss() As String
    Dim cn As New adodb.Connection
    Dim rs As New adodb.Recordset
    cn.CursorLocation = adUseClient
 
    cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=sample;Data Source=."
    rs.Open "select number,sdatetime,data from udata", cn, adOpenStatic, adLockOptimistic

    If rs.RecordCount = 0 Then Exit Sub
    ReDim ss(rs.RecordCount)
    With MSChart1
      .RowCount = rs.RecordCount
      .ColumnCount = 1
      .chartType = VtChChartType2dBar
      For i = 1 To rs.RecordCount
        .Row = i
        .Data = rs.Fields("data")         
        .RowLabel = rs.Fields("sdatetime")
        rs.MoveNext
      Next i
    End