Buenas
Con la función Format() puedes obtener el nombre del mes en el lenguaje del Windows instalado así:
Código:
Format(<número de mes>, "mmmm")
En tu caso:
Código:
Function LlenaCombo2()
Dim sqlstr As String
sqlstr = vbNullString
sqlstr = "select distinct(mes) from produ_comercial"
Set RS = New ADODB.Recordset
Call RS.Open(sqlstr, CONQC, adOpenForwardOnly, adLockOptimistic)
While Not RS.EOF
Call Combo2.AddItem(Format(RS.Fields!linea, "mmmm"))
Call RS.MoveNext
Wend
End Function
Yendo un poco más lejos, puedes darle algo más de estilo poniendo la primera letra en mayúscula y lo demás en minúscula:
Código:
(declara la variable NombreMes como String)
...
NombreMes=Format(RS.Fields!linea, "mmmm")
Call Combo2.AddItem(UCase(Left(NombreMes, 1)) & LCase(Right(NombreMes, Len(NombreMes)-1)))
....
Eso si, ten en cuenta que si quieres volver a recuperar el número del mes al hacer una selección en la combo, tendrás que guardarlo en la propiedad ItemData.