io ho questa necessita' con VB6

io ho una tabella con una serie di squadre
e una altra tabella con una serie di colori.

Squadre - Colori

le squadre possono essere 1 come 100
i colori sono 100

quindi mi serve realizzare una maschera, dove assegna le squadre per una settimana che imposto (6 giorni lavorativi) , in maniera ragionata, facendo in modo che le squadre ruotino tutte nei colori, e che per la settimana successiva le squadre non ricoprino i colori della precedente settimana(casomai memorizzando gli accoppiamenti in un database per avere uno storico) e che nello stesso giorno nessuna altra squadra abbia lo stesso colore.

mi potete aiutare?

faccio un esempio

io imposto il valore delle squadre a 10
i colori sono 100
lui assegna per esempio

squadra Lunedi Martedi Mercoledi giovedi venerdi sabato
1 1 2 3 4 5 6
2 2 3 4 5 6 1
3 3 4 5 6 1 2
4 e cosi via....