Do While dbRec.EOF = False
MSFlexGrid1.AddItem dbRec!Nome & vbTab & dbRec!Descrizione & vbTab & dbRec!Med_Esec & vbTab & dbRec!Med_lett & vbTab & dbRec!Operatore & vbTab & dbRec!Istanza_Unica & vbTab & dbRec!codice
dbRec.MoveNext
Loop
dbRec.Close
Set dbRec = Nothing
dbConn.Close
Set dbConn = Nothing
End Sub