Popolare MSChart tramite sql?

[EngLab]

Per i mesi di un anno io ho utilizzato questo

Private Sub Grafico()
Dim i As Integer
Dim MatriceBid(1 To 12, 1 To 2)

For i = 1 To 12
    MatriceBid(i, 1) = mesi(i)
    MatriceBid(i, 2) = Totali(i)
Next i

MSChart.ChartData = MatriceBid

End Sub