Visual Basic - Gráficas

Alguien me puede decir como graficar con datos introducidos en un formulario, traídos desde un base de datos, o desde una hoja de Excel? Muchas Gracias de antemano y si alguien lo tiene ya en código, ¿me lo podrían pasar?

De antemano muchas Gracias.

Hola! Te mando una funcion que utilizo para crear una grafia en cuyo eje y se muestra la cantidad de dinero gastado, en el x cada mes y los rubros son taxi, buses, alimentacion y otros. La grafica me indica como se comportan estoys gastos durante el tiempo, el usuario me pasa por parametros si quiere ver todos los gastos del año si, leo el rango de meses que selecciono.

Lo verdaderamente importante que debes notar es la forma en que se llena la grafia, es como llenar una matriz, las filas son mis rubros y las columnas mis meses, las lleno calculando el total de los gastos mediante una funcion que me retorna este valor.
Esa funcion lo que hace es un sql a la bd que calcula el total requerido en un rubro determinado y un mes en especifico gracias a los parametros que le paso.

Este ejemplo es muy especifico pero Hojala que te sirva!

Function CalcularGastosParaGrafica(Todos As Boolean)
Dim Column As Integer
Dim Row As Integer
Dim MesD As Integer
Dim MesH As Integer

MesD = 1
MesH = 12

If Todos = False Then
'filtra por los meses
//no se lo mando porque no deja enviar tanto texto el foro
end if
With Grafica
' Muestra un gráfico 3d con 8 columnas y 8 filas
' de datos.
.chartType = 3
.ColumnCount = 12
.RowCount = 4

'asigna el valor debuelto por los calculos a la grafica
For Column = 1 To 12 'meses
For Row = 1 To 4 'rubros
.Column = Column
.Row = Row
If .Column >= MesD And .Column <= MesH Then
.Data = CalcularGastoEnViaticos(Column, Row, Todos) 'numero de mes y numero de rubro
Else
.Data = 0
End If
Next Row
Next Column

.Plot.SeriesCollection(1).LegendText = "TAXIS"
.Plot.SeriesCollection(2).LegendText = "BUSES"
.Plot.SeriesCollection(3).LegendText = "ALIMENTACION"
.Plot.SeriesCollection(4).LegendText = "OTROS"

' Utiliza el gráfico como fondo de la leyenda.
.ShowLegend = True
.SelectPart VtChPartTypePlot, index1, index2, _
index3, index4
.EditCopy
.SelectPart VtChPartTypeLegend, index1, _
index2, index3, index4
.EditPaste

End With
End Function