codice:
sql= "SELECT * FROM risultati"
poi ho una funzione riempigriglia che mi inserisce i dati nella tabella

codice:
Public sub riempigriglia (ByVal sql as string)
Dim i as integer

imposto i titoli e la larghezza dei campi, poi inserisco i dati:

Rs.open sql, Conn, adOpenKeyset, adLockOptimistic
.griglia.rows = Rs.RecordCount + 1
i = 1

Do while (Not Rs.Eof)
   .griglia.textMatrix (i, 0) = Rs!nome
   .griglia.textMatrix (i, 1) = Rs!cognome
   .griglia.textMatrix (i, 2) = Rs!corso
   "                                             "
   "                                             "
   i = i + 1
   Rs.MoveNext
Loop
End Sub
Grazie ancora