es muy larga ya que no se como llenar el datagreedview con una sola consulta queria hacerlo asi
Código vb:
Ver originalDim mosene As New OleDb.OleDbDataAdapter("select DISTINCT (d.CodigoPrestacion) as Código, p.NOMBRE_PRESTACION as Prestación, p.REM_PRESTACION as Rem, p.SECCION as Sección, d.Col01 as Enero from DatosSerieA d, PRESTACIONES p where d.CodigoPrestacion=p.CODIGO_PRESTACION and d.IdEstablecimiento='" & Me.Label7.Text & "' and d.Mes=1 and Ano=" & Me.ComboBox2.Text & "", conectar)
Dim datos As New DataSet
mosene.Fill(datos)
Me.DataGridView1.DataSource = datos.Tables(0)
pero no se como agrupar todos los meses en esa consulta :(