[VB6] popolare una griglia con il risultato di una query

Private Sub AggiornaGridDb(nomegriglia As MSFlexGrid, nomeRecordSet As Recordset)
'viene passato il nome di una grid ed il nome di un recordset
'popola la grid in modo che rappresenti come una tabella tale recordset
'PREREQUISITI, IL RECORDSET DEVE ESSRE GIA' ATTIVO

Dim CONTA As Integer
Dim stringaOttenuta As String

'formatta la griglia in funzione del risultato della recordset:   numero campi e intestazioni di colonna
  nomegriglia.Cols = nomeRecordSet.Fields.Count
  nomegriglia.FixedCols = 0
  nomegriglia.Rows = 1
nomegriglia.Clear
For CONTA = 0 To nomeRecordSet.Fields.Count – 1
nomegriglia.TextMatrix(0, CONTA) = nomeRecordSet.Fields(CONTA).Name
Next

'riporta tutti i record della query
If nomeRecordSet.EOF Then Exit Sub
nomeRecordSet.MoveFirst
While Not nomeRecordSet.EOF
stringaOttenuta = nomeRecordSet.GetString(adClipString, 1, vbTab)
stringaOttenuta = Left(stringaOttenuta, Len(stringaOttenuta) – 1)
nomegriglia.AddItem stringaOttenuta
Wend

End Sub