Option Explicit

Private Sub Command1_Click()
    Set MSChart1.DataSource = ado1.Recordset
End Sub

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
    MSChart1.ColumnCount = ado1.Recordset.Fields.Count
    MSChart1.RowCount = ado1.Recordset.RecordCount
    Do While Not ado1.Recordset.EOF
        MSChart1.Row = ado1.Recordset.AbsolutePosition
        For i =  1  To MSChart1.ColumnCount
            MSChart1.Column = i
            MSChart1.Data = ado1.Recordset(i -  1 )
        Next i
        ado1.Recordset.MoveNext
        DoEvents
    Loop
    MSChart1.Visible = True
End Sub