codice:
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.connectionstring =  "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial 
Catalog=Darsena;Data Source=2000PROF\ALPHATEAM"
cn.open
Set rs = New ADODB.Recordset
rs.Open "select * from tblAree",cn
Do While Not rs.EOF
 Debug.Print rs!Descrizione
Loop
rs.Close
Set rs = Nothing
End Sub