Private rs As New ADODB.Recordset
Private cn As New ADODB.Connection
Private Sub Command1_Click()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= c:\xxx.mdb" ' <-更改该路径。
cn.Open
rs.Open "SELECT col1,col2 FROM table1", cn, adOpenKeyset
' 将 DataSource 设置为该记录集。
With MSChart1
.ShowLegend = True
.SeriesType = VtChChartType2dBar
Set .DataSource = rs
End With
End Sub