codice:
Do Until rs.EOF
   Text1.Text = rs!Descrizione 
   rs.MoveNext
Loop

dovresti sostituire la parte in neretto con

codice:
   Text1.Text = Text1.Text & " " & vbCrLf & " " & rs!Descrizione
altrimenti ogni ciclo ti cancella le assegnazioni procedenti, metre così le accodi........