Acabei de desenvolver um aplicativo e tive os mesmo problemas, e pra soluciona-los eu fiz Do while rsCNSQL.Open "SELECT COUNT(*) AS Total, " & NOMECAMPO & " From " & NOMETABELA & " GROUP BY " & NOMECAMPO, CON Do While Not rsCNSQL.EOF 'Cadastra informações na primeira coluna MSChart4.Column = COLUNA MSChart4.ColumnLabel = rsCNSQL(NOMECAMPO) MSChart4.Data = rsCNSQL("Total") 'Prepara coluna para mudar para a proxima If COLUNA <= (MAXCOLUNAS - 1) Then COLUNA = COLUNA + 1 Else End If 'Fecha conexão SQL rsCNSQL.MoveNext ' rsSQL.MoveNext Loop * Vale lembrar que para trabalhar na segunda column deve especificar Objeto.ColumnCount = 2 Ojeto.Column = 1 Objeto.Data = 10 Ojeto.Column = 2 Objeto.Data = 15
