Ho installato MSDAC 2.7, poi ho creato questo codice:

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