Código para Graficar

Aquí les dejo el código para graficar, recuerden que deben estar pendiente de como llaman a sus campos de la consulta Cantidades.

Private Sub btn_grafica_Click()
With Data1.Recordset
.MoveLast
ReDim Valores(1 To .RecordCount, 1 To 2)

.MoveFirst
i = 1
While Not .EOF
Valores(i, 1) = !descripcion
Valores(i, 2) = !CuentaDecodigo_equipo
.MoveNext
i = i + 1
Wend
End With

MSChart1.TitleText = "Cantidad de Equipos por Tipo"
MSChart1.ChartData = Valores
End Sub