perchè non mi stampa il conteggio???
Set tabella.ActiveConnection = connessione
query = "select nome, count(nome) as conteggio into newtab from cliente group by nome"
tabella.Open query
query = ""
connessione.Close
connessione.Open
Set tabella.ActiveConnection = connessione
query = "select nome, conteggio from newtab"
tabella.Open query
Do While Not tabella.EOF
risultato = tabella!nome
risultato1 = tabella!conteggio
MSFlexGrid1.AddItem
tabella.MoveNext
Loop