Rellenar combo

[nicket]

Ante todo muchas gracias por la respuesta, es una buena manera de solucionar el problema de los meses. Lo que pasa es que no solucionamos la manera de crear parejas de valores para añadirlos al combo.

He encontrado otra manera de hacerlo, que es crear una tabla con dos columnas con los pares id,mes para después pasarlo todo al DataSouce del combo:

Dim tMesos As New DataTable
tMesos.Columns.Add("idMes")
tMesos.Columns.Add("nomMes")

For i = 1 To 12
Dim reg As DataRow = tMesos.NewRow
reg("idMes") = i
reg("nomMes") = MonthName(i)
tMesos.Rows.Add(reg)
Next

mesos.DataSource = tMesos
mesos.DataValueField = "idMes"
mesos.DataTextField = "nomMes"
mesos.DataBind()

Creo que es una buena manera para pasar pares de valores al combo.

Gracias!