io faccio così

codice:
Do While Not record.EOF Or i = 20
classifica.griglia.TextMatrix(i, 0) = record.Fields(1).Value
 classifica.griglia.TextMatrix(i, 1) = record.Fields(2).Value
classifica.griglia.TextMatrix(i, 2) = record.Fields(3).Value
classifica.griglia.TextMatrix(i, 3) = record.Fields(4).Value
classifica.griglia.TextMatrix(i, 4) = record.Fields(5).Value
....................
i = i + 1
record.MoveNext
Loop
se hai dubbi posta