Non capisco perchè al clic del pulsante command1_click, non mi fa visualizzare sulla textbox, tutti i campi.

Es.
tabella: tblAree
campo: Descrizione
------- CIAO
------- MIAO
------- PIPPO

Ecco il codice qui sotto dovrebbe ciclarmi i nomi ogni volta che premo il commandbutton, perchè non lo fa????

codice:
Private Sub Command1_Click()
Call ADOconnetti
End Sub
Private Sub ADOconnetti()
Dim sql As String
Dim i As Integer
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Darsena;Data Source=2000PROF\ALPHATEAM"
rs.CursorLocation = adUseClient
rs.ActiveConnection = cn
rs.Open "select * from tblAree"
Do Until rs.EOF
   Text1.Text = rs!Descrizione
   rs.MoveNext
Loop
i = 0
Do While rs.EOF
rs.MoveLast
i = rs!idAree
Loop
rs.Close
Set rs = Nothing
End Sub

Aiutoo??????