Bueno, pues ya está. Tengo que aplicar la función MAX(), aunque vale otra parecida, para que agrupe bien, puesto que no es suma ni cuenta. Os dejo el código completo:
Código:
strSel = "SELECT CSTR(MAX(MONTH(CDATE(FechaVisado)))) AS Mes, MAX(YEAR(CDATE(FechaVisado))) AS Año, COUNT(NumVisado) AS Visados, SUM(CDBL(CDBL(DerechosVisado)+CDBL(Legalizacion))) AS Importe FROM " & TablaBDInicial & " GROUP BY (MONTH(CDATE(FechaVisado)) & YEAR(CDATE(FechaVisado)))"
Dim daResumen As New OleDbDataAdapter(strSel, con)
Dim dtResumen As New DataTable
daResumen.Fill(dtResumen)
For Each f As DataRow In dtResumen.Rows
f("Mes") = meses(Int16.Parse(f("Mes")) - 1) 'cambia el número de mes por el nombre del mes
Next
Dim dvResumen As New DataView(dtResumen)
dvResumen.Sort = "Año, Mes"
Me.dgInforme.DataSource = dvResumen
Un saludo.