strConn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\ESTRAZIONI.mdb"

cn.Open strConn


rs.Open " select Data,BA1,BA2,BA3,BA4,BA5 From Archivio ORDER BY Data DESC;", cn, 3, 3

Do Until rs.EOF

conteggio(rs("BA1")) = conteggio(rs("BA1")) + 1
conteggio(rs("BA2")) = conteggio(rs("BA2")) + 1
conteggio(rs("BA3")) = conteggio(rs("BA3")) + 1
conteggio(rs("BA4")) = conteggio(rs("BA4")) + 1
conteggio(rs("BA5")) = conteggio(rs("BA5")) + 1

rs.MoveNext
HO INIZIATO COSI...



pero' non ho idea su come sviluppare il resto